blib/lib/Language/Befunge/Debug.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 6 | 6 | 100.0 |
line | true | false | branch |
---|---|---|---|
54 | 2 | 422 | unless (defined $parent) |
64 | 422 | 2 | unless $ns eq '::main::' |
68 | 420 | 4 | unless exists do { $ns }->{$sub} and \&{do { $ns }->{$sub};} == $orig{$sub} |