| blib/lib/Exodist/Util/Sub.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 5 | 9 | 55.5 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 49 | 2 | 0 | 1 | ref $in and ref $in eq 'CODE' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 24 | 6 | 0 | 0 | delete $proto{'sub'} || croak('No code provided') |
| 56 | 1 | 1 | 0 | $caller ||= caller |