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) |