The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more
12345678 #!/usr/bin/perl -wuse strict;use Test::More;eval "use Test::Pod::Coverage 1.04";plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@;all_pod_coverage_ok({ also_private => [ '/^[A-Z_]+$/' ], });
#!/usr/bin/perl -w
use
strict;
Test::More;
eval
"use Test::Pod::Coverage 1.04"
;
plan
skip_all
=>
"Test::Pod::Coverage 1.04 required for testing POD coverage"
if
$@;
all_pod_coverage_ok({
also_private
=> [
'/^[A-Z_]+$/'
], });