| blib/lib/Sub/Retry/Extended.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 17 | 19 | 89.4 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 22 | 14 | 4 | 0 | $retry_if and ref $retry_if ne 'CODE' |
| 68 | 134 | 8 | 3 | $$timeout{'each'} and tv_interval($$lap{'each'}) > $$timeout{'each'} |
| 73 | 129 | 10 | 3 | $$timeout{'total'} and tv_interval($$lap{'start'}) > $$timeout{'total'} |
| line | l | !l | condition |
|---|---|---|---|
| 19 | 18 | 0 | delete $args{'times'} || 1 |
| 20 | 4 | 14 | delete $args{'delay'} || delete $args{'wait'} || 0 |
| 25 | 4 | 14 | delete $args{'each_timeout'} || 0 |
| 4 | 14 | delete $args{'total_timeout'} || 0 | |
| 32 | 4 | 14 | $retry_if ||= sub { $err = $@; } |