Branch Coverage

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


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