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