| blib/lib/Jojo/Base.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 18 | 18 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 31 | 4 | 17 | unless my $flag = shift() |
| 35 | 5 | 12 | if ($flag eq '-base') { } |
| 6 | 6 | elsif ($flag eq '-strict') { } | |
| 2 | 4 | elsif ($flag eq '-role') { } | |
| 1 | 3 | elsif ($base = $flag and $flag = '-base' and not $base->can('new')) { } | |
| 57 | 1 | 16 | if ((shift() || '') eq '-signatures') |
| 63 | 9 | 8 | if ($base) |
| 69 | 11 | 6 | if (@exports) |
| 81 | 5 | 1 | unless my $class = &Scalar::Util::blessed($self) |