Branch Coverage

inc/Test/Pod.pm
Criterion Covered Total %
branch 23 36 63.8


line true false branch
103 3 0 @_ ? :
105 0 3 unless (-f $file)
118 0 3 unless ($ok)
152 0 1 @_ ? :
158 0 3 unless pod_file_ok($file, $file)
185 0 1 @_ ? :
190 20 11 if (-d $file)
192 0 20 unless opendir DH, $file
197 30 0 if $_ ne 'CVS'
201 11 19 if (-f $filename) { }
209 11 20 if (-f $file)
210 3 8 if _is_perl($file)
217 1 0 if -e 'blib'
224 0 11 if $file =~ /\.PL$/
225 3 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/