| blib/lib/PM/Packages.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 21 | 26 | 80.7 |
| line | true | false | branch |
|---|---|---|---|
| 18 | 0 | 5 | unless open my $fh, "<", "$pmfile" |
| 25 | 1 | 84 | $pline =~ /^=cut/ ? : |
| 1 | 85 | $pline =~ /^=(?!cut)/ ? : | |
| 27 | 4 | 82 | if $inpod |
| 28 | 1 | 81 | if substr($pline, 0, 4) eq "=cut" |
| 31 | 42 | 39 | if $pline =~ /^\s*$/ |
| 32 | 2 | 37 | if ($pline =~ /^__(?:END|DATA)__\b/ and not $pmfile =~ /\.PL$/) |
| 41 | 6 | 31 | if ($pline =~ / (.*) (? |
| 52 | 0 | 6 | if ($pkg eq "DB") |
| 60 | 6 | 31 | if ($pkg) |
| 66 | 0 | 6 | unless $pkg =~ /\w$/ |
| 67 | 0 | 6 | if $pkg eq "main" |
| 72 | 0 | 6 | if length $pkg > 128 |