| line |
true |
false |
branch |
|
16
|
1 |
3 |
if (ref $flag eq 'HASH') { } |
|
22
|
0 |
3 |
if ref $selector_ref ne 'HASH' |
|
26
|
0 |
4 |
if grep {ref $_ ne 'CODE';} values %{$selector_ref;} |
|
30
|
3 |
1 |
if (defined $flag) |
|
33
|
3 |
4 |
if shift @_ eq $flag |
|
36
|
1 |
2 |
if (ref $selector eq 'CODE') { } |
|
47
|
2 |
2 |
if (exists $selector_ref->{$selection}) { } |
|
|
1 |
1 |
elsif ($flag) { } |
|
57
|
3 |
0 |
if ($handler) |
|
59
|
2 |
1 |
if (exists $handler_for{$caller_loc}) |
|
70
|
5 |
15 |
if ($arg_generator_ref) |
|
78
|
10 |
10 |
if (exists $handler_for{$caller_loc}) |
|
85
|
0 |
5 |
@args > 0 ? : |
|
|
5 |
5 |
@args == 1 ? : |
|
91
|
10 |
0 |
unless (ref $exception) |
|
104
|
0 |
8 |
if (ref $exception) { } |