| blib/lib/WebService/Async/CustomerIO/RateLimiter.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 3 | 5 | 60.0 |
| line | l | !l | condition |
|---|---|---|---|
| 73 | 0 | 14 | $self->{'queue'}[$pos] //= {"future", $self->loop->new_future, "counter", 0} |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 98 | 1 | 2 | 0 | $self->{'timer'} //= $self->loop->delay_future("after", $self->interval)->on_ready(sub { $self->{'counter'} = 0; delete $self->{'timer'}; return unless @{$self->{'queue'};}; $self->_start_timer; my $current = shift @{$$self{"queue"};}; $self->{'counter'} = $current->{'counter'}; $current->{'future'}->done; } ) |