| File: | blib/lib/B/RecDeparse.pm |
| Coverage: | 94.4% |
| line | % | coverage | branch | |
|---|---|---|---|---|
| 58 | 100 | T | F | if @_ % 2 |
| 61 | 100 | T | F | if (defined $deparse) { } |
| 62 | 100 | T | F | if (not ref $deparse) { } |
| 100 | T | F | elsif (ref $deparse ne 'ARRAY') { } | |
| 71 | 100 | T | F | unless defined $level |
| 98 | 50 | T | F | if $@ |
| 116 | 100 | T | F | if ((caller 1)[0] eq 'B::RecDeparse' and $body =~ s/^$key//) { } |
| 130 | 100 | T | F | if $self->_recurse |
| 145 | 100 | T | F | if ($$self{'brd_sub'} <= 0 or not $self->_recurse) { } |