1use Test::More; 2use File::Spec; 3use File::Find; 4use strict; 5 6BEGIN { chdir 't' if -d 't' }; 7 8eval 'use Test::Pod'; 9plan skip_all => "Test::Pod v0.95 required for testing POD" 10 if $@ || $Test::Pod::VERSION < 0.95; 11 12plan skip_all => "Pod tests disabled under perl core" if $ENV{PERL_CORE}; 13 14my @files; 15find( sub { push @files, File::Spec->catfile( 16 File::Spec->splitdir( $File::Find::dir ), $_ 17 ) if /\.p(?:l|m|od)$/ }, File::Spec->catdir(qw(.. blib lib) )); 18 19plan skip_all => "No tests to run" unless scalar @files; 20 21plan tests => scalar @files; 22for my $file ( @files ) { 23 pod_file_ok( $file ); 24} 25 26 27