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 => [ qr/^[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
=> [
qr/^[A-Z_]+$/
], });