| inc/UNIVERSAL/can.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 7 | 14 | 50.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 43 | 0 | 0 | 152963 | defined $caller and defined $_[0] |
| 0 | 152957 | 6 | defined $caller and defined $_[0] and eval { do { local $UNIVERSAL::can::recursing = 1; $caller->isa($_[0]) } } |
| line | l | !l | condition |
|---|---|---|---|
| 66 | 225 | 0 | (caller 2)[3] || '' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 43 | 143960 | 0 | 152963 | $UNIVERSAL::can::recursing or defined $caller and defined $_[0] and eval { do { local $UNIVERSAL::can::recursing = 1; $caller->isa($_[0]) } } |
| 64 | 0 | 225 | 0 | $UNIVERSAL::can::always_warn or warnings::enabled() |