Branch Coverage

lib/Test/NoBreakpoints.pm
Criterion Covered Total %
branch 24 34 70.5


line true false branch
57 0 21 unless (open $fh, $file)
67 11 10 if (not $matched) { }
75 10 11 $matched ? :
85 2 0 @_ ? :
90 8 40 if (-d $file)
92 0 8 unless opendir DH, $file
97 46 0 if $_ ne 'CVS'
101 40 8 if (-f $file)
102 26 14 if _is_perl($file)
112 0 0 if -e 'blib'
119 0 40 if $file =~ /\.PL$/
120 4 36 if $file =~ /\.p(l|m)$/
121 22 14 if $file =~ /\.t$/
124 0 14 unless open FH, $file
128 0 14 if defined $first and $first =~ /^#!.*perl/
137 1 0 @_ ? :
141 4 9 unless no_breakpoints_ok $_