1 2 3 4 5 6 7 8 9
#!/usr/bin/perl -w use 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_]+$/' ], });