| blib/lib/Devel/Walk.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 15 | 16 | 93.7 |
| line | true | false | branch |
|---|---|---|---|
| 30 | 34 | 68 | unless &$sub($loc, $obj) |
| 33 | 13 | 55 | unless $r |
| 34 | 1 | 54 | if $SEEN{$addr} |
| 40 | 23 | 31 | if ('HASH' eq $r) { } |
| 10 | 21 | elsif ('ARRAY' eq $r) { } | |
| 13 | 8 | elsif ('REF' eq $r or 'SCALAR' eq $r) { } | |
| 42 | 7 | 16 | if $was_top |
| 49 | 0 | 10 | if $was_top |