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