10 plan skip_all => 'set TEST_AUTHOR to enable this test' unless $ENV{TEST_AUTHOR};
12 eval 'use Test::Strict';
13 plan skip_all => 'Test::Strict not installed' if $@;
14 plan skip_all => 'Need untaint in newer File::Find' if $] <= 5.006;
17 ## I hope this can go away if Test::Strict or File::Find::Rule
18 ## finally run under -T. Until then, I'm on my own here. ;-)
21 'NotReallyAClass.pm' => 1
27 untaint_pattern => qr|^([-+@\w./]+)$|,
33 my $name = $File::Find::name;
34 my $file = fileparse($name);
36 return if $name =~ /TestApp/;
38 if ($name =~ /\.(pm|pl|t)$/i && !exists($trusted{$file})) {
44 plan tests => scalar @files;
47 fail 'No perl files found for Test::Strict checks!';