| line |
true |
false |
branch |
|
27
|
2 |
32 |
unless $self->{'limit'} =~ /\A\d+\z/ms |
|
28
|
0 |
32 |
if $self->{'period'} <= 0 |
|
29
|
2 |
30 |
if keys %opt |
|
31
|
24 |
0 |
if $this |
|
38
|
0 |
0 |
unless ($self->try_acquire($id, $key, $quantity)) |
|
39
|
0 |
0 |
if ($quantity <= $self->{'limit'} and $self->{'used'}{$key}) |
|
45
|
0 |
0 |
unless ($self->try_acquire($id, $key, $quantity)) |
|
54
|
1 |
4 |
if $state->{'algo'} ne 'Sub::Throttler::Periodic::EV' |
|
56
|
1 |
3 |
if ($v > $VERSION) |
|
62
|
3 |
1 |
if (int($state->{'at'} / $self->{'period'}) * $self->{'period'} + $self->{'period'} > &Sub::Throttler::Periodic::EV::time()) |
|
65
|
3 |
1 |
if (keys %{$$self{'used'};}) |
|
73
|
5 |
3 |
if (1 == @_) |
|
76
|
0 |
3 |
if $period <= 0 |
|
84
|
3 |
10 |
unless $self->{'acquired'}{$id} |
|
91
|
3 |
4 |
unless (keys %{$$self{'used'};}) |
|
112
|
54 |
38 |
if ($self->SUPER::try_acquire(@_)) |
|
128
|
13 |
11 |
if (keys %{$$self{'used'};}) |
|
132
|
23 |
1 |
unless (keys %{$$self{'used'};}) |