eval
{
Test::Pod->
import
;
};
require
'./Makefile.PL'
;
our
%module
= get_module_info();
my
@files
;
if
($@) {
plan
skip_all
=>
"Test::Pod required for testing POD"
;
}
elsif
(
$Test::Pod::VERSION
< 0.95) {
plan
skip_all
=>
"Test::Pod 0.95 required for testing POD"
;
}
else
{
my
$blib
= File::Spec->catfile(
qw(blib lib)
);
find(\
&wanted
,
grep
{ -d } (
$blib
));
if
(
my
$exe
=
$module
{EXE_FILES}) {
push
@files
,
@$exe
;
};
plan
tests
=>
scalar
@files
;
foreach
my
$file
(
@files
) {
pod_file_ok(
$file
);
}
}
sub
wanted {
push
@files
,
$File::Find::name
if
/\.p(l|m|od)$/;
}