123456789101112131415 use Test::More;my @files = (glob("*.pm"));my $n = @files;eval 'use Test::Pod';if ($@) { plan skip_all => "You don't have Test::Pod installed";} else { plan tests => $n;}for my $file (@files) { pod_file_ok($file, "POD for '$file'");}
use
Test::More;
my
@files
= (
glob
(
"*.pm"
));
$n
=
;
eval
'use Test::Pod'
if
($@) {
plan
skip_all
=>
"You don't have Test::Pod installed"
}
else
{
tests
for
$file
) {
pod_file_ok(
,
"POD for '$file'"
);