| blib/lib/Hook/LexWrap.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 16 | 17 | 94.1 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 57 | 1 | 1 | 9 | ref $return eq 'ARRAY' and $return == $prereturn |
| 2 | 2 | 7 | ref $return eq 'ARRAY' and $return == $prereturn and not @$return |
| line | l | !l | condition |
|---|---|---|---|
| 15 | 74 | 12 | $_[0] || 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 26 | 58 | 258 | 74 | $name_cache or $height-- != 0 |
| 36 | 3 | 1 | 24 | ref $typeglob || $typeglob =~ /::/ |
| 44 | 27 | 1 | 0 | ref $typeglob eq 'CODE' && $typeglob || *$typeglob{'CODE'} || Carp::croak(q[Can't wrap non-existent subroutine ], $typeglob) |