| blib/lib/App/Cmd/Command.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 24 | 58.3 |
| line | true | false | branch |
|---|---|---|---|
| 77 | 0 | 1 | if (my $run = $class->can("run")) |
| 79 | 0 | 0 | if $ENV{'HARNESS_ACTIVE'} |
| 201 | 0 | 29 | if ref $class |
| 209 | 0 | 29 | unless $pm_file = $INC{$pm_file} |
| 212 | 0 | 29 | unless open my $fh, "<", $pm_file |
| 219 | 0 | 1226 | /^=cut/ ? : |
| 221 | 9 | 1217 | if (/#+\s*ABSTRACT: (.*)/) |
| 226 | 1127 | 99 | unless $inpod |
| 229 | 78 | 21 | unless /^(?:$class\s-\s)(.*)/ |
| 250 | 4 | 0 | if ref $class |
| 255 | 0 | 4 | unless $pm_file = $INC{$pm_file} |
| 257 | 0 | 4 | unless open my $input, "<", $pm_file |