| line |
true |
false |
branch |
|
32
|
16 |
1 |
if $ReproxySelf |
|
46
|
0 |
17 |
unless $self and $cp |
|
55
|
1 |
16 |
if ($LastCleanup < $now - 5) |
|
81
|
0 |
1 |
unless $ReproxyQueues{$$be{'ipport'}} |
|
|
0 |
1 |
unless @{[] unless $ReproxyQueues{$$be{'ipport'}};} |
|
84
|
1 |
0 |
unless $ReproxyBackends{$$be{'ipport'}} |
|
|
0 |
1 |
if scalar @{[] unless $ReproxyBackends{$$be{'ipport'}};} |
|
102
|
2 |
29 |
if ($ReproxyConnecting{$ipport} and $ReproxyConnecting{$ipport} == $be) |
|
110
|
0 |
31 |
if ($$be{'closed'}) |
|
116
|
0 |
31 |
unless $ReproxyQueues{$ipport} |
|
118
|
0 |
16 |
if $$cp{'closed'} |
|
129
|
15 |
0 |
if (my $bbe = $ReproxyBored{$ipport}[0]) |
|
130
|
0 |
15 |
if ($$bbe{'alive_time'} < time - 5) |
|
157
|
0 |
19 |
if $NoSpawn |
|
163
|
0 |
19 |
if (my $be = $ReproxyConnecting{$ipport}) |
|
165
|
0 |
0 |
if ($$be{'create_time'} < time - 5) { } |
|
180
|
0 |
19 |
unless $ReproxyQueues{$ipport} |
|
|
2 |
17 |
unless @{[] unless $ReproxyQueues{$ipport};} |
|
183
|
2 |
15 |
unless $ReproxyBored{$ipport} |
|
188
|
0 |
14 |
if ($$bbe{'disconnect_at'} and $now + 2 > $$bbe{'disconnect_at'} or $$bbe{'alive_time'} < $now - 5) |
|
204
|
1 |
2 |
unless $ReproxyBackends{$ipport} |
|
205
|
0 |
3 |
if $max and $count >= $max |
|
208
|
0 |
3 |
unless my $be = 'Perlbal::BackendHTTP'->new(undef, split(/:/, $ipport, 0), {'reportto', $self}) |
|
219
|
0 |
16 |
unless ($cp) |
|
230
|
0 |
0 |
unless $out |
|
234
|
0 |
0 |
if defined $dat |