| line |
true |
false |
branch |
|
37
|
0 |
3 |
unless my $loop = delete $params{'loop'} |
|
52
|
11 |
0 |
if (defined $err) |
|
54
|
10 |
1 |
unless $err |
|
61
|
0 |
0 |
if (defined getpeername $sock) |
|
69
|
0 |
0 |
if (read $sock, my $buff, 1) |
|
98
|
0 |
15 |
unless ($sock) |
|
100
|
0 |
0 |
if $on_fail |
|
104
|
0 |
15 |
if ($localaddr and not $sock->bind($localaddr)) |
|
106
|
0 |
0 |
if $on_fail |
|
114
|
2 |
13 |
if ($ret) { } |
|
|
2 |
22 |
elsif ($! != 115 and 1) { } |
|
121
|
2 |
0 |
if $on_fail |
|
134
|
10 |
1 |
unless $err |
|
137
|
1 |
0 |
if $on_fail |
|
150
|
3 |
0 |
if $connecterr |
|
152
|
0 |
0 |
if $binderr |
|
154
|
0 |
0 |
if $socketerr |
|
174
|
0 |
9 |
if (exists $params{'host'} or exists $params{'local_host'} or exists $params{'local_port'}) |
|
177
|
0 |
6 |
unless defined $gai_hints{'socktype'} or defined $gai_hints{'protocol'} |
|
181
|
6 |
9 |
if (exists $params{'host'} and exists $params{'service'}) { } |
|
|
9 |
0 |
elsif (exists $params{'addrs'} or exists $params{'addr'}) { } |
|
|
0 |
0 |
elsif (exists $params{'peer'}) { } |
|
182
|
0 |
6 |
unless my $host = $params{'host'} |
|
183
|
0 |
6 |
unless my $service = $params{'service'} |
|
192
|
0 |
9 |
exists $params{'addrs'} ? : |
|
200
|
7 |
2 |
if ($p_family == 2) { } |
|
|
0 |
2 |
elsif ($p_family == 10) { } |
|
201
|
0 |
7 |
if (Socket::unpack_sockaddr_in($p_addr))[1] eq "\000\000\000\000" |
|
205
|
0 |
0 |
if (Socket::unpack_sockaddr_in6($p_addr))[1] eq "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000" |
|
214
|
0 |
0 |
unless &blessed($peer) and $peer->isa('IO::Socket') |
|
228
|
1 |
14 |
if (defined $params{'local_host'} or defined $params{'local_service'}) { } |
|
|
0 |
14 |
elsif (exists $params{'local_addrs'} or exists $params{'local_addr'}) { } |
|
240
|
0 |
0 |
exists $params{'local_addrs'} ? : |
|
260
|
0 |
1 |
if $l_family and $p_family and $l_family != $p_family |
|
261
|
0 |
1 |
if $l_socktype and $p_socktype and $l_socktype != $p_socktype |
|
262
|
0 |
1 |
if $l_protocol and $p_protocol and $l_protocol != $p_protocol |