| line |
true |
false |
branch |
|
28
|
145 |
149 |
if @_ |
|
29
|
119 |
124 |
if @_ |
|
30
|
119 |
124 |
if @_ |
|
31
|
108 |
40 |
if @_ |
|
41
|
1 |
106 |
defined $server->{'server'}{'listen'} ? : |
|
|
1 |
107 |
defined $info->{'listen'} ? : |
|
43
|
0 |
108 |
if defined $info->{'orig_port'} |
|
59
|
12 |
18 |
$host eq '*' ? : |
|
|
19 |
3 |
$ipv eq '4' ? : |
|
|
8 |
22 |
$ipv eq '6' ? : |
|
|
3 |
8 |
$ipv eq '*' ? : |
|
|
11 |
19 |
$ipv =~ /[6*]/ ? : |
|
|
0 |
30 |
unless $sock->configure({"LocalPort", $port, "Proto", "tcp", "Listen", $lstn, "ReuseAddr", 1, "Reuse", 1, "LocalAddr", $host eq "*" ? undef : $host, "Family", $ipv eq 6 ? 10 : ($ipv eq 4 ? 2 : 0), $ipv =~ /[6*]/ ? ("V6Only", $ipv eq "*" ? 0 : 1) : ()}) |
|
70
|
0 |
30 |
if ($port eq '0' and $port = $sock->sockport) { } |
|
|
0 |
60 |
elsif ($port =~ /\D/ and $port = $sock->sockport) { } |
|
84
|
0 |
0 |
unless $sock->fdopen($fd, "w") |
|
87
|
0 |
0 |
$ipv eq '4' ? : |
|
|
0 |
0 |
$ipv eq '6' ? : |
|
89
|
0 |
0 |
if ($port ne $sock->NS_port) |
|
99
|
0 |
26 |
if (wantarray) { } |
|
104
|
26 |
0 |
if (defined $client) |
|
107
|
0 |
26 |
wantarray ? : |
|
119
|
0 |
0 |
unless defined $bytes or defined $end_qr |
|
124
|
0 |
109 |
if (defined $bytes and length $content >= $bytes) { } |
|
|
2 |
107 |
elsif (defined $end_qr and $content =~ /$end_qr/) { } |
|
132
|
2 |
0 |
wantarray ? : |
|
143
|
0 |
48 |
defined do {
*$sock
}->{'NS_orig_port'} ? : |