| Server IP : 188.40.95.74 / Your IP : 216.73.216.205 Web Server : Apache System : Linux cp01.striminghost.net 3.10.0-1160.119.1.el7.tuxcare.els13.x86_64 #1 SMP Fri Nov 22 06:29:45 UTC 2024 x86_64 User : vlasotin ( 1054) PHP Version : 5.6.40 Disable Function : NONE MySQL : ON | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/share/doc/perl-Test-Simple-0.98/t/ |
Upload File : |
#!/usr/bin/perl -w
use Test::More;
# 1.08 added the coverage_class option.
eval "use Test::Pod::Coverage 1.08";
plan skip_all => "Test::Pod::Coverage 1.08 required for testing POD coverage" if $@;
eval "use Pod::Coverage::CountParents";
plan skip_all => "Pod::Coverage::CountParents required for testing POD coverage" if $@;
my @modules = Test::Pod::Coverage::all_modules();
plan tests => scalar @modules;
my %coverage_params = (
"Test::Builder" => {
also_private => [ '^(share|lock|BAILOUT)$' ]
},
"Test::More" => {
trustme => [ '^(skip|todo)$' ]
},
);
for my $module (@modules) {
pod_coverage_ok( $module, { coverage_class => 'Pod::Coverage::CountParents',
%{$coverage_params{$module} || {}} }
);
}