Branch Coverage

blib/lib/Async/Defer.pm
Criterion Covered Total %
branch 127 130 97.6


line true false branch
66 5 198 unless (@{$self->{'iter'};})
77 8 698 if ($self->{'pc'} != -1)
87 3 294 if (@more_tasks)
129 0 0 $is_array ? :
140 9 10 !$is_array ? :
142 2 17 unless (keys %task)
160 5 14 unless (&any(sub { not defined $_; } , values %taskresults))
163 2 3 !$is_array ? :
169 23 20 unless $taskparams{$key}
176 1 22 if (not $code or ref $code ne 'CODE')
194 1 20 if (not $code or ref $code ne 'CODE')
212 2 89 if (2 > @param) { }
1 88 elsif (@param % 2) { }
220 62 84 if ($cond eq 'FINALLY') { }
227 80 8 if (@catch)
230 61 26 if ($finally)
253 188 835 if ($op == 9 or $op == 10)
257 198 825 if ($op_open{$op}) { }
192 633 elsif ($op_close{$op}) { }
32 601 elsif ($op == 4) { }
262 186 6 if (@stack and $stack[-1][0] == $close_op) { }
269 1 31 if (not @stack && $stack[-1][0] == 3) { }
1 30 elsif ($stack[-1][1]) { }
278 5 231 if (@stack)
289 2 245 unless (&any(sub { $op_stmt{$_->[0]}; } , @{$$self{'opcode'};}))
292 1 244 if ($self->{'pc'} != -1)
297 1 230 if (ref $d eq 'CODE')
317 1105 1096 wantarray ? :
327 23 710 if ($self->{'findone'})
360 28 24 if (not $param[0]->($this))
364 3 83 $op == 5 ? :
3 86 $op == 3 ? :
16 89 $op == 5 && !$stack ? :
12 105 $op == 4 && !$stack ? :
377 3 17 $op == 5 ? :
3 20 $op == 3 ? :
11 23 $op == 5 && !$stack ? :
386 33 65 if (not @{$self->{'iter'};} or $self->{'iter'}[-1][1] != $self->{'pc'})
391 23 75 if (not $param[0]->($this))
404 53 108 if ($self->{'parent'})
422 49 83 if (_op($self) == 7 or $self->{'pc'} == $#{$$self{'opcode'};})
430 34 212 $op == 10 && !$trystack ? :
17 246 $op == 11 && $trystack ? :
17 263 $op == 8 ? :
2 280 $op == 7 ? :
2 282 $op == 6 ? :
10 284 $op == 7 && !$stack ? :
451 21 67 if ($op == 10)
461 6 425 $op == 6 ? :
6 431 $op == 7 ? :
7 437 $op == 6 && !$stack ? :
468 65 2 if (@{$self->{'iter'};})
487 13 31 if ($op == 10)
510 4 54 unless $self->{'opcode'}[$self->{'pc'} + 1]
511 14 44 $nextop && $nextop == 11 ? :
521 3 4 $op == 7 ? :
0 7 $op == 6 ? :
15 7 $op == 11 ? :
1 22 $op == 8 ? :
8 23 $op == 10 && !$stack ? :
44 31 $op == 9 && !$stack ? :
525 6 52 if ($self->{'pc'} > $#{$$self{'opcode'};})
526 4 2 if ($self->{'parent'}) { }
534 44 8 if ($op == 9) { }
536 39 10 if ($err =~ /$cond/msu)