| line |
true |
false |
branch |
|
55
|
0 |
4 |
unless ref $child_func eq 'CODE' |
|
56
|
0 |
4 |
unless $port =~ /\d+/ |
|
57
|
0 |
4 |
unless $min_children =~ /\d+/ |
|
58
|
0 |
4 |
unless $max_children =~ /\d+/ |
|
76
|
15 |
1 |
if ($pipe_status->can_read) |
|
79
|
0 |
15 |
unless sysread $pipe_read, $pipe_msg, 4096 |
|
83
|
0 |
15 |
unless my($pid, $sta) = /^(\d+)\s*(\w+)$/ |
|
84
|
0 |
15 |
if ($sta eq 'exit') { } |
|
97
|
5 |
11 |
if (@idle_children < $min_children) { } |
|
|
0 |
11 |
elsif (@idle_children > $max_children) { } |
|
122
|
9 |
0 |
unless $max_request |
|
124
|
0 |
9 |
unless ref $child_func eq 'CODE' |
|
127
|
3 |
6 |
if ($child == 0) |
|
148
|
3 |
4 |
unless eval {
do {
local $SIG{'HUP'} = sub {
$0 = "$caller idle hup";
++$quit;
die;
}
;
accept $sock, $server
}
} |
|
177
|
0 |
4 |
unless socket $server, 2, 1, 6 |
|
178
|
0 |
4 |
unless setsockopt $server, 1, 2, 1 |
|
179
|
0 |
4 |
unless bind $server, $address |
|
180
|
0 |
4 |
unless listen $server, 128 |
|
249
|
0 |
0 |
if $peer_ip eq '255.255.255.255' |
|
255
|
0 |
0 |
if $_ =~ /^#/ |
|
256
|
0 |
0 |
if $_ =~ /^\s+$/ |
|
257
|
0 |
0 |
if $_ eq $peer_ip |
|
272
|
0 |
4 |
if (-e $pidfile) { } |
|
277
|
0 |
0 |
if (kill 0, $pid) { } |
|
285
|
0 |
0 |
if (unlink $pidfile) { } |
|
319
|
0 |
5 |
unless defined(my $child = fork) |
|
320
|
1 |
4 |
if $child |