| blib/lib/Schedule/RateLimiter.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 18 | 18 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 120 | 1 | 12 | unless defined $args{'seconds'} |
| 122 | 1 | 11 | if ($args{'seconds'} =~ /[^-\d\.]/) |
| 128 | 2 | 9 | if ($iterations =~ /[^-\d\.]/) |
| 132 | 1 | 8 | if (int $iterations != $iterations) |
| 136 | 1 | 7 | if $iterations < 0 |
| 141 | 2 | 5 | exists $args{'block'} ? : |
| 190 | 227 | 3 | exists $args{'block'} ? : |
| 192 | 107 | 123 | if ($t - $last < $$self{'seconds'}) |
| 193 | 104 | 3 | unless $block |