| line |
true |
false |
branch |
|
62
|
10 |
0 |
if (ref $default ne "CODE") |
|
64
|
0 |
10 |
unless exists $VALID_FAILURE_HANDLERS_FOR_SCOPE[-1]{$default} |
|
85
|
2 |
3 |
if ($next_arg eq 'fail') { } |
|
|
1 |
2 |
elsif ($next_arg eq 'ON_FAILURE') { } |
|
|
1 |
1 |
elsif ($next_arg eq 'default') { } |
|
|
1 |
0 |
elsif ($next_arg eq 'handlers') { } |
|
86
|
0 |
2 |
unless $fail = shift @_ |
|
88
|
0 |
2 |
if ref $fail |
|
92
|
0 |
1 |
unless $ON_FAILURE = shift @_ |
|
94
|
0 |
1 |
if ref $fail |
|
98
|
0 |
1 |
unless $default = shift @_ |
|
100
|
0 |
1 |
if ref $fail and ref $fail ne "CODE" |
|
104
|
0 |
1 |
unless $handlers = shift @_ |
|
106
|
0 |
1 |
if not ref $handlers or ref $handlers ne "HASH" |
|
109
|
0 |
1 |
if grep {ref $_ ne "CODE";} values %{$handlers;} |
|
132
|
4 |
36 |
unless defined $handler |
|
135
|
1 |
35 |
if (${^GLOBAL_PHASE} ne "START") |
|
140
|
0 |
35 |
if ((caller 1)[3] eq "(eval)") |
|
146
|
0 |
35 |
unless $handler_type =~ /\A (?: CODE | SCALAR | ARRAY | HASH | (?#STRING) ) \z/msux |
|
159
|
20 |
15 |
if ($type eq "") |
|
161
|
0 |
20 |
unless exists $valid_handlers_ref->{$handler} |
|
170
|
6 |
9 |
if ($type eq "SCALAR") |
|
176
|
3 |
6 |
if ($type eq "ARRAY") |
|
182
|
3 |
3 |
if ($type eq "HASH") |
|
219
|
29 |
6 |
!$context ? : |
|
|
15 |
35 |
!defined($context) ? : |
|
242
|
0 |
64 |
unless @uplevel_caller |
|
245
|
50 |
14 |
if ($uplevel_caller[0] ne $immediate_caller_package) |
|
260
|
0 |
0 |
$@ ? : |
|
|
3 |
0 |
@_ ? : |
|
264
|
0 |
3 |
if ref $exception |
|
266
|
3 |
0 |
if (not ref $exception and substr($exception, -1) ne "\n") |