| blib/lib/Mojo/Bass.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 17 | 18 | 94.4 |
| line | true | false | branch |
|---|---|---|---|
| 28 | 4 | 17 | unless my $flag = shift() |
| 32 | 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')) { } | |
| 40 | 0 | 2 | unless eval "package $caller; use Role::Tiny; 1" |
| 54 | 1 | 16 | if ((shift() || '') eq '-signatures') |
| 61 | 9 | 8 | if ($base) |
| 67 | 11 | 6 | if (@$exports) |