| blib/lib/Devel/Quick.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 14 | 85.7 |
| line | true | false | branch |
|---|---|---|---|
| 17 | 11 | 10 | if ($opt =~ /^-/) { } |
| 18 | 6 | 5 | if ($opt eq '-s' or $opt eq '-strict') { } |
| 3 | 2 | elsif ($opt eq '-b' or $opt eq '-begin') { } | |
| 79 | 5 | 5 | if ($strict) { } |
| 86 | 2 | 8 | if ($begin) { } |
| 94 | 0 | 0 | if $package and $package eq 'Devel::Quick' |
| 96 | 3 | 7 | if (my $err = $@) |