use strict; use File::Find; use FindBin (); use Test::More; my @files; find( sub { push @files, $File::Find::name if /\.p(?:m|od)$/ }, "$FindBin::Bin/.." ); plan tests => scalar @files; SKIP: { eval { require Test::Pod; import Test::Pod; }; skip "Test::Pod not available", scalar @files if $@; if ( $Test::Pod::VERSION >= 0.95 ) { pod_file_ok($_) for @files; } else { pod_ok($_) for @files; } } unless($ENV{'HARNESS_ACTIVE'}) { #require Data::Dumper; Data::Dumper->import('Dumper'); local $Data::Dumper::Terse = 1; #print 'Files: ' . Dumper(\@files); }