4 if( $ENV{PERL_CORE} ) {
5 @INC = ('../lib', 'lib');
19 $Has_Test_Pod = eval 'use Test::Pod 0.95; 1';
24 chdir File::Spec->catdir(File::Spec->updir, 'lib');
27 if( $File::Find::dir =~ /^blib|t$/ ) {
28 $File::Find::prune = 1;
31 push @modules, $File::Find::name if /\.pm$/;
35 plan tests => scalar @modules * 2;
36 foreach my $file (@modules) {
38 unshift @INC, File::Spec->curdir;
40 # This piece of insanity brought to you by non-case preserving
41 # file systems! We have extutils/command.pm, %INC has
43 # Furthermore, 5.8.0 has a bug about require alone in an eval. Thus
44 # the extra statement.
45 eval q{ require($file); 1 } unless grep { lc $file =~ lc $_ } keys %INC;
46 is( $@, '', "require $file" );
49 skip "Test::Pod not installed", 1 unless $Has_Test_Pod;