use strict;
use warnings;
+use Test::More;
BEGIN {
- use lib 't/lib';
- use Test::More;
- use File::Find;
- use File::Basename;
+ plan skip_all => 'Need untaint in newer File::Find' if $] <= 5.006;
+}
- plan skip_all => 'set TEST_AUTHOR to enable this test' unless $ENV{TEST_AUTHOR};
+BEGIN {
+ eval 'use Test::Strict 0.05; 1'
+ or plan skip_all => 'Test::Strict 0.05 not installed';
+}
- eval 'use Test::Strict 0.05';
- plan skip_all => 'Test::Strict 0.05 not installed' if $@;
- plan skip_all => 'Need untaint in newer File::Find' if $] <= 5.006;
-};
+use File::Find;
+use File::Basename;
## I hope this can go away if Test::Strict or File::Find::Rule
## finally run under -T. Until then, I'm on my own here. ;-)
foreach (@files) {
warnings_ok($_);
-};
+}