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 $_ |