Branch Coverage

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


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