From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

#!perl
BEGIN
{
use lib './lib';
unless( $ENV{AUTHOR_TESTING} || $ENV{RELEASE_TESTING} )
{
plan(skip_all => 'These tests are for author or release candidate testing');
}
};
eval "use Test::Pod::Coverage 1.04; use Pod::Coverage::TrustPod;";
plan( skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" ) if( $@ );
my $params =
{
coverage_class => 'Pod::Coverage::TrustPod',
trustme => [qr/^(new|init|error|pass_error|_\w+|[A-Z]+|STORABLE_freeze|STORABLE_thaw|TO_JSON)$/]
};
all_pod_coverage_ok( $params );