| blib/lib/PerlGuard/Agent/LexWrap.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 2 | 17 | 11.7 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 51 | 0 | 0 | 0 | ref $return eq 'ARRAY' and $return == $prereturn |
| 0 | 0 | 0 | ref $return eq 'ARRAY' and $return == $prereturn and not @$return |
| line | l | !l | condition |
|---|---|---|---|
| 13 | 0 | 4 | $_[0] || 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 20 | 0 | 0 | 4 | $name_cache or $height-- != 0 |
| 30 | 0 | 0 | 0 | ref $typeglob || $typeglob =~ /::/ |
| 38 | 0 | 0 | 0 | ref $typeglob eq 'CODE' && $typeglob || *$typeglob{'CODE'} || Carp::croak(q[Can't wrap non-existent subroutine ], $typeglob) |