blib/lib/isa.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 3 | 7 | 42.8 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
20 | 1 | 0 | 0 | @_ == 1 and ref $_[0] eq 'HASH' |
line | l | !l | condition |
---|---|---|---|
13 | 1 | 0 | eval { do { require B; 'B'->can('perlstring') } } || sub { sprintf '"%s"', quotemeta $_[0]; } |
45 | 2 | 0 | ($cache{$class} ||= $me->generate_coderef($class)) || die("Problem generating coderef for $class") |