use
strict;
use
warnings;
use
Test::More;
for
my
$file
(
glob
(
't/corpus/moo/*.pm'
)) {
$file
=~ s{\At/corpus/moo/}{};
my
$package
=
$file
;
$package
=~ s{\.pm\z}{};
$package
=~ s{/|\\}{::}g;
my
$cover
= Pod::Coverage::TrustMe->new(
package
=>
$package
,
require_link
=> 1,
ignore_imported
=> 0,
);
is
$cover
->coverage, 1,
"$package is covered"
or diag
$cover
->report;
}
done_testing;