blib/lib/UNIVERSAL/can.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 13 | 17 | 76.4 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
43 | 0 | 1 | 55660 | defined $caller and defined $_[0] |
1 | 55656 | 4 | defined $caller and defined $_[0] and eval { do { local $UNIVERSAL::can::recursing = 1; 'warnings'->unimport('UNIVERSAL::isa') if $INC{'UNIVERSAL::isa'}; $caller->isa(blessed($_[0]) || $_[0]) } } |
line | l | !l | condition |
---|---|---|---|
69 | 3 | 0 | (caller 2)[3] || '' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
43 | 8 | 0 | 55661 | $UNIVERSAL::can::recursing or defined $caller and defined $_[0] and eval { do { local $UNIVERSAL::can::recursing = 1; 'warnings'->unimport('UNIVERSAL::isa') if $INC{'UNIVERSAL::isa'}; $caller->isa(blessed($_[0]) || $_[0]) } } |
46 | 55641 | 0 | 19 | blessed($_[0]) || $_[0] |
67 | 1 | 2 | 4 | $UNIVERSAL::can::always_warn or warnings::enabled() |