| lib/Test/NoBreakpoints.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 24 | 34 | 70.5 |
| line | true | false | branch |
|---|---|---|---|
| 82 | 0 | 21 | unless (open $fh, $file) |
| 92 | 11 | 10 | if (not $matched) { } |
| 100 | 10 | 11 | $matched ? : |
| 110 | 2 | 0 | @_ ? : |
| 115 | 8 | 40 | if (-d $file) |
| 117 | 0 | 8 | unless opendir DH, $file |
| 122 | 46 | 0 | if $_ ne 'CVS' |
| 126 | 40 | 8 | if (-f $file) |
| 127 | 26 | 14 | if _is_perl($file) |
| 137 | 0 | 0 | if -e 'blib' |
| 144 | 0 | 40 | if $file =~ /\.PL$/ |
| 145 | 4 | 36 | if $file =~ /\.p(l|m)$/ |
| 146 | 22 | 14 | if $file =~ /\.t$/ |
| 149 | 0 | 14 | unless open FH, $file |
| 153 | 0 | 14 | if defined $first and $first =~ /^#!.*perl/ |
| 162 | 1 | 0 | @_ ? : |
| 166 | 4 | 9 | unless &no_breakpoints_ok($_) |