File Coverage

tests/_all-3
Criterion Covered Total %
statement 16 20 80.0
branch 1 2 50.0
condition n/a
subroutine 5 5 100.0
pod n/a
total 22 27 81.4


line stmt bran cond sub pod time code
1             #!/usr/bin/perl -w
2              
3             # The script verifies pod coverage in all classes.
4              
5 1     1   5 use strict;
  1         1  
  1         29  
6              
7 1     1   811 use FindBin;
  1         999  
  1         42  
8 1     1   712 use lib "$FindBin::Bin/../perllib";
  1         577  
  1         5  
9              
10 1     1   1108 use Test::More;
  1         19500  
  1         12  
11              
12 1         4 my $test_pod_class = "Test::Pod::Coverage 1.00";
13 1     1   141 eval "use $test_pod_class";
  1         480  
  0            
  0            
14 1 50       13 plan skip_all => "$test_pod_class required for testing POD" if $@;
15 0         0 my $trustme = [ '^new$', '' ]; # currently assume all methods are covered
16 0         0 all_pod_coverage_ok({ trustme => $trustme });