| blib/lib/Sub/Called.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 18 | 72.2 |
| line | true | false | branch |
|---|---|---|---|
| 27 | 22 | 3 | $sub eq 'main' ? : |
| 36 | 116 | 501 | if ($name eq 'nextstate') { } |
| 33 | 468 | elsif ($name eq 'gv') { } | |
| 43 | 0 | 33 | if (B::class($op) eq 'PADOP') { } |
| 45 | 0 | 0 | if ($sv) |
| 47 | 0 | 0 | if ($class eq 'GV') |
| 59 | 18 | 15 | if $check eq $func |
| 62 | 83 | 16 | unless $is_line and $is_gv and $name eq 'entersub' |
| 67 | 9 | 7 | if (($key & $priv) == $key and $priv > $key) |