| line |
true |
false |
branch |
|
24
|
5 |
48 |
if (defined $timeout) |
|
33
|
1 |
44 |
if (defined $tries) |
|
54
|
25 |
5 |
exists $spec->{'timeout'} ? : |
|
55
|
28 |
2 |
exists $spec->{'tries'} ? : |
|
93
|
7 |
26 |
if ($ok) |
|
98
|
23 |
1 |
if (ref $eval_error and ref $eval_error eq "Try::ALRM::_Timeout" and builtin::refaddr($eval_error) == builtin::refaddr($alarm_token)) |
|
114
|
2 |
24 |
unless (eval {
do {
&$finally_block($attempts, $succeeded);
1
}
}) |
|
118
|
3 |
23 |
if defined $error |
|
119
|
1 |
22 |
if defined $finally_error |
|
146
|
0 |
40 |
unless $frame |
|
166
|
0 |
23 |
unless (@expired) |
|
173
|
17 |
6 |
if (ref $frame->{'handler'} eq "CODE") |
|
183
|
33 |
40 |
unless @ALARM_STACK |
|
191
|
1 |
39 |
if ($remaining <= 0) |
|
204
|
0 |
39 |
int $value == $value ? : |
|
210
|
0 |
32 |
if @args % 2 |
|
217
|
1 |
55 |
unless $key eq "ALRM" or $key eq "finally" or $key eq "timeout" or $key eq "tries" |
|
224
|
1 |
90 |
if exists $spec{$key} |
|
226
|
36 |
54 |
if ($key eq "ALRM" or $key eq "finally") |
|
227
|
0 |
36 |
unless ref $value eq "CODE" |
|
240
|
2 |
33 |
unless defined $timeout and $timeout =~ /\A[1-9][0-9]*\z/ |
|
248
|
2 |
27 |
unless defined $tries and $tries =~ /\A[1-9][0-9]*\z/ |