| blib/lib/Call/From.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 19 | 27 | 70.3 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 27 | 5 | 21 | 17 | defined $ctx and not ref $ctx |
| 26 | 6 | 11 | defined $ctx and not ref $ctx and $ctx =~ /^-?\d+$/ | |
| 53 | 1 | 2 | 6 | defined $_[0] and my($package, $function) = $_[0] =~ /\A(.*?)::([^:]+)\z/ |
| 58 | 0 | 6 | 0 | defined $package and length $package |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 43 | 18 | 0 | 3 | $ctx->[0] || $call[0] |
| 15 | 0 | 6 | $ctx->[1] || $call[1] | |
| 10 | 0 | 11 | $ctx->[2] || $call[2] | |
| 85 | 3 | 11 | 0 | $$method_trampoline_cache{join "\000", @caller} ||= _gen_sub(@caller, ' $_[0]->${\\$_[1]}( @_[2..$#_ ] ) ') |
| 92 | 0 | 6 | 0 | $$function_trampoline_cache{join "\000", @caller} ||= _gen_sub(@caller, 'Call::From::_to_fun($_[0])->( @_[1..$#_ ] ) ') |