| line |
true |
false |
branch |
|
28
|
0 |
1 |
unless defined $self->default_rate |
|
30
|
0 |
1 |
unless $self->default_rate =~ /^[1-9][0-9]*$/u |
|
32
|
0 |
1 |
unless defined $self->retry_after |
|
33
|
0 |
1 |
unless $self->retry_after =~ /^[1-9][0-9]*$/u and $self->retry_after > 60 |
|
36
|
1 |
0 |
unless ($self->cache) |
|
71
|
1 |
0 |
if (my $greylist = $self->greylist) |
|
83
|
5 |
2 |
unless XXX |
|
88
|
1 |
6 |
if exists $codes{$rate} |
|
92
|
1 |
6 |
if $mask eq 1 |
|
105
|
36 |
6 |
$name ? : |
|
108
|
36 |
6 |
if ($rate >= 0) |
|
113
|
7 |
29 |
$hits > $rate ? : |
|
115
|
7 |
29 |
if ($limit) |
|
120
|
7 |
0 |
if (my $log = $env->{'psgix.logger'}) { } |
|
127
|
2 |
5 |
if ($rate == 0) { } |