The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

use strict;
use Test::Needs 'Moo';
use lib 't/corpus/moo';
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;