| blib/lib/WebService/Async/CustomerIO/RateLimiter.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % | 
| branch | 8 | 10 | 80.0 | 
| line | true | false | branch | 
|---|---|---|---|
| 28 | 2 | 45 | unless exists $args->{$k} | 
| 29 | 4 | 41 | unless int $args->{$k} > 0 | 
| 30 | 41 | 0 | if exists $args->{$k} | 
| 60 | 2 | 2 | if ++$self->{'counter'} <= $self->limit | 
| 91 | 0 | 1 | unless @{$self->{'queue'};} |