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

#!perl -T
use strict;
unless ( $ENV{TEST_AUTHOR} ) {
plan skip_all => 'Set $ENV{TEST_AUTHOR} to a true value to run POD tests.';
}
my $min_tpc = 1.08;
eval "use Test::Pod::Coverage $min_tpc";
if ($@) {
plan skip_all =>
"Test::Pod::Coverage $min_tpc required to test POD coverage.";
}
# Test::Pod::Coverage doesn't require a minimum Pod::Coverage version,
# but older versions don't recognize some common documentation styles:
#
my $min_pc = 0.18;
eval "use Pod::Coverage $min_pc";
if ($@) {
plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage.";
}
all_pod_coverage_ok();