use File::Spec;
use File::Find qw(find);
use strict;
eval {
require Test::More;
Test::More->import;
require Test::Pod;
Test::Pod->import;
};
if ($@) {
eval {
require Test::More;
};
if ($@) {
require Test;
Test->import;
plan(tests => 0);
}
else {
plan(skip_all => "Test::Pod required for testing POD");
}
}
else {
my @files;
find(
sub { push @files, $File::Find::name if m!\.p(m|od|l)$! },
File::Spec->catfile(qw(.. blib lib))
);
plan(tests => scalar @files);
foreach my $file (@files) {
pod_ok($file);
}
}