Branch Coverage

inc/Test/Pod.pm
Criterion Covered Total %
branch 25 36 69.4


line true false branch
103 74 0 @_ ? :
105 0 74 unless (-f $file)
118 7 67 unless ($ok)
152 0 1 @_ ? :
158 7 67 unless pod_file_ok($file, $file)
185 0 1 @_ ? :
190 43 82 if (-d $file)
192 0 43 unless opendir DH, $file
197 124 0 if $_ ne 'CVS'
201 82 42 if (-f $filename) { }
209 82 43 if (-f $file)
210 74 8 if _is_perl($file)
217 1 0 if -e 'blib'
224 0 82 if $file =~ /\.PL$/
225 74 8 if $file =~ /\.p(l|m|od)$/
226 0 8 if $file =~ /\.t$/
229 0 8 unless open FH, $file
233 0 8 if defined $first and $first =~ /^#!.*perl/