From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more
|
#!perl
BEGIN
{
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|FREEZE|STORABLE_freeze|STORABLE_thaw|THAW|TO_JSON)$/ ] };
all_pod_coverage_ok( $params );
|