| blib/lib/Sub/Context.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 18 | 18 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 25 | 2 | 5 | if index($subname, '::') > 0 |
| 47 | 7 | 14 | if ref $$contexts{$context} and reftype($$contexts{$context}) eq 'CODE' |
| 50 | 4 | 10 | exists $$contexts{$context} ? : |
| 66 | 10 | 6 | if defined &$sub |
| 82 | 3 | 6 | $context ? : |
| 9 | 3 | defined $context ? : | |
| 101 | 2 | 8 | unless (exists $allowed{$provided}) |
| 114 | 3 | 2 | unless defined &$globname |
| 122 | 5 | 5 | if defined *{$glob;}{$slot} |