| blib/lib/Log/Sigil.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 10 | 90.0 |
| line | true | false | branch |
|---|---|---|---|
| 50 | 2 | 14 | if $subroutine eq join('::', 'Log::Sigil', 'swarn') |
| 53 | 9 | 7 | if $subroutine =~ /$ANON_REGEX/ |
| 56 | 0 | 16 | if $subroutine =~ /$ANON_REGEX/ |
| 59 | 14 | 2 | if (my(@list) = caller $nth - $bias - $BIAS) |
| 68 | 8 | 8 | unless (exists $INDEX{$subroutine}) |