| line |
true |
false |
branch |
|
93
|
0 |
0 |
if ($$self{-'local_port'} < 1024) |
|
100
|
0 |
0 |
unless $$self{'MAIN'} = 'IO::Socket::INET'->new('LocalAddr', $$self{-'local_host'}, 'LocalPort', $$self{-'local_port'}, 'Listen', 128, 'ReuseAddr', 1, 'Proto', 'tcp') |
|
118
|
0 |
0 |
if ($$self{-'mode'} eq 'nonforking') |
|
123
|
0 |
0 |
unless tie my %lookup, 'Tie::RefHash' |
|
143
|
0 |
0 |
$$self{-'mode'} eq 'nonforking' ? : |
|
177
|
0 |
0 |
unless $remote |
|
187
|
0 |
0 |
unless (defined $pid) |
|
194
|
0 |
0 |
if ($pid) |
|
205
|
0 |
0 |
unless (defined $pid) |
|
209
|
0 |
0 |
if ($pid) { } |
|
274
|
0 |
0 |
if ($sock == $$self{'MAIN'}) { } |
|
|
0 |
0 |
elsif (defined $$self{'LOOKUP'}{$sock}) { } |
|
288
|
0 |
0 |
unless $remote |
|
316
|
0 |
0 |
$type eq 'client' ? : |
|
317
|
0 |
0 |
$type eq 'client' ? : |
|
322
|
0 |
0 |
unless $sock->sysread($buf, 1024, length $buf) |
|
326
|
0 |
0 |
if (not $buf) { } |
|
|
0 |
0 |
elsif (not print($dest &$func($buf))) { } |
|
345
|
0 |
0 |
if ($err) |
|
356
|
0 |
0 |
unless $sock->connected |
|
392
|
0 |
0 |
if ($$self{-'remote_host'}) { } |
|
403
|
0 |
0 |
unless my $newsock = 'IO::Socket::INET'->new('PeerAddr', $dhost, 'PeerPort', $dport, 'Proto', 'tcp') |
|
421
|
0 |
0 |
if ($do_debug) |