blib/lib/ex/monkeypatched.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 16 | 18 | 88.8 |
line | true | false | branch |
---|---|---|---|
14 | 9 | 1 | if (@_) |
15 | 1 | 8 | unless my(@injections) = _parse_injections(@_) |
19 | 5 | 3 | unless $norequire |
34 | 2 | 10 | if (@_ == 1 and ref $_[0] eq 'HASH') { } |
9 | 1 | elsif (@_ % 2) { } | |
36 | 1 | 1 | if (defined $$opt{'class'} and ref $$opt{'methods'} eq 'HASH') { } |
1 | 0 | elsif (defined $$opt{'method'} and ref $$opt{'implementations'} eq 'HASH') { } | |
58 | 0 | 3 | unless my(@injections) = _parse_injections(@_) |
68 | 3 | 12 | if $target->can($name) |