12 plan skip_all => 'set TEST_AUTHOR to enable this test' unless $ENV{TEST_AUTHOR};
14 eval 'use Test::Strict 0.05';
15 plan skip_all => 'Test::Strict 0.05 not installed' if $@;
16 plan skip_all => 'Need untaint in newer File::Find' if $] <= 5.006;
19 ## I hope this can go away if Test::Strict or File::Find::Rule
20 ## finally run under -T. Until then, I'm on my own here. ;-)
26 find({ wanted => \&wanted,
28 untaint_pattern => qr|^([-+@\w./]+)$|,
34 my $name = $File::Find::name;
35 my $file = fileparse($name);
37 return if $name =~ /TestApp/;
39 if ($name =~ /\.(pm|pl|t)$/i && !exists($trusted{$file})) {
45 plan tests => scalar @files;
48 fail 'No perl files found for Test::Strict checks!';