| blib/lib/Object/RateLimiter.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 12 | 83.3 |
| line | true | false | branch |
|---|---|---|---|
| 37 | 1 | 1 | unless defined $params{'events'} |
| 38 | 1 | 1 | unless defined $params{'seconds'} |
| 41 | 2 | 0 | if (my $currentq = $self->_queue) |
| 53 | 2 | 5 | if ((my $ev_count = $thisq->count) >= $ev_limit) |
| 61 | 2 | 0 | $delayed > 0 ? : |
| 74 | 1 | 1 | unless $self->is_expired |