use Test::More; use File::Spec; use File::Find; use strict; BEGIN { chdir 't' if -d 't' }; eval 'use Test::Pod'; plan skip_all => "Test::Pod v0.95 required for testing POD" if $@ || $Test::Pod::VERSION < 0.95; plan skip_all => "Pod tests disabled under perl core" if $ENV{PERL_CORE}; my @files; find( sub { push @files, File::Spec->catfile( File::Spec->splitdir( $File::Find::dir ), $_ ) if /\.p(?:l|m|od)$/ }, File::Spec->catdir(qw(.. blib lib) )); plan tests => scalar @files; for my $file ( @files ) { pod_file_ok( $file ); }