| blib/lib/Object/RateLimiter.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 14 | 85.7 |
| line | true | false | branch |
|---|---|---|---|
| 39 | 1 | 1 | unless defined $params{'events'} |
| 41 | 1 | 1 | unless defined $params{'seconds'} |
| 45 | 2 | 0 | if (my $currentq = $self->_queue) |
| 57 | 2 | 5 | if ((my $ev_count = $thisq->count) >= $ev_limit) |
| 65 | 2 | 0 | $delayed > 0 ? : |
| 78 | 1 | 1 | $self->is_expired ? : |
| 86 | 2 | 2 | &time() - $latest > $self->seconds ? : |