The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

use strict;
use lib 't/corpus';
for my $package (qw(
CoveredByParent
CoveredByRole
CoveredFile
RoleWithCoverage
WithUTF8
)) {
my $cover = Pod::Coverage::TrustMe->new(
package => $package,
require_link => 1,
);
is $cover->coverage, 1, "$package is covered"
or diag $cover->report;
}
done_testing;