| line |
true |
false |
branch |
|
36
|
0 |
0 |
if @_ == 1 |
|
50
|
0 |
0 |
unless defined $name |
|
51
|
0 |
0 |
if exists $proto_number{$name} |
|
54
|
0 |
0 |
unless @proto |
|
62
|
0 |
0 |
unless defined $num |
|
63
|
0 |
0 |
if exists $proto_name{$num} |
|
66
|
0 |
0 |
unless @proto |
|
77
|
0 |
0 |
if defined $addr and $addr =~ s[:([\w\(\)/]+)$][] |
|
80
|
0 |
0 |
if (defined $proto and $proto =~ /\D/) |
|
82
|
0 |
0 |
unless (defined $num) |
|
89
|
0 |
0 |
if (defined $port) |
|
90
|
0 |
0 |
$port =~ s/\((\d+)\)$// ? : |
|
93
|
0 |
0 |
if $port =~ /\D/ |
|
97
|
0 |
0 |
unless (defined $port) |
|
102
|
0 |
0 |
if @serv and not $proto |
|
117
|
0 |
0 |
$_[0] =~ /^$title/ ? : |
|
118
|
0 |
0 |
if defined fileno $sock |
|
128
|
0 |
0 |
if ($multi and not $addr_str =~ /^\d+(?:\.\d+){3}$/) { } |
|
132
|
0 |
0 |
if defined $h |
|
143
|
0 |
0 |
if exists $arg->{'LocalHost'} and not exists $arg->{'LocalAddr'} |
|
148
|
0 |
0 |
unless ($laddr, $lport, $proto) = _sock_info($arg->{'LocalAddr'}, $arg->{'LocalPort'}, $arg->{'Proto'}) |
|
150
|
0 |
0 |
defined $laddr ? : |
|
153
|
0 |
0 |
unless defined $laddr |
|
157
|
0 |
0 |
if exists $arg->{'PeerHost'} and not exists $arg->{'PeerAddr'} |
|
159
|
0 |
0 |
unless (exists $arg->{'Listen'}) |
|
162
|
0 |
0 |
unless ($raddr, $rport, $proto) = _sock_info($arg->{'PeerAddr'}, $arg->{'PeerPort'}, $proto) |
|
172
|
0 |
0 |
if (defined $raddr) |
|
174
|
0 |
0 |
unless @raddr |
|
180
|
0 |
0 |
unless $sock->socket(2, $type, $proto) |
|
183
|
0 |
0 |
if (defined $arg->{'Blocking'}) |
|
185
|
0 |
0 |
unless defined $sock->blocking($arg->{'Blocking'}) |
|
188
|
0 |
0 |
if ($arg->{'Reuse'} or $arg->{'ReuseAddr'}) |
|
189
|
0 |
0 |
unless $sock->sockopt(2, 1) |
|
193
|
0 |
0 |
if ($arg->{'ReusePort'}) |
|
194
|
0 |
0 |
unless $sock->sockopt(15, 1) |
|
198
|
0 |
0 |
if ($arg->{'Broadcast'}) |
|
199
|
0 |
0 |
unless $sock->sockopt(6, 1) |
|
203
|
0 |
0 |
if ($lport or $laddr ne "\000\000\000\000" or exists $arg->{'Listen'}) |
|
204
|
0 |
0 |
unless $sock->bind($lport || 0, $laddr) |
|
208
|
0 |
0 |
if (exists $arg->{'Listen'}) |
|
209
|
0 |
0 |
unless $sock->listen($arg->{'Listen'} || 5) |
|
215
|
0 |
0 |
unless exists $arg->{'PeerAddr'} |
|
219
|
0 |
0 |
unless $rport or $type == 2 or $type == 3 |
|
223
|
0 |
0 |
unless $type == 1 or defined $raddr |
|
225
|
0 |
0 |
unless defined $raddr |
|
232
|
0 |
0 |
if ($sock->connect(pack_sockaddr_in($rport, $raddr))) |
|
237
|
0 |
0 |
unless @raddr |
|
254
|
0 |
0 |
unless @_ == 2 or @_ == 3 |
|
257
|
0 |
0 |
@_ == 1 ? : |
|
261
|
0 |
0 |
unless @_ == 2 or @_ == 3 |
|
264
|
0 |
0 |
@_ == 1 ? : |
|
268
|
0 |
0 |
unless @_ == 1 |
|
271
|
0 |
0 |
$name ? : |
|
275
|
0 |
0 |
unless @_ == 1 |
|
278
|
0 |
0 |
$name ? : |
|
282
|
0 |
0 |
unless @_ == 1 |
|
285
|
0 |
0 |
$addr ? : |
|
289
|
0 |
0 |
unless @_ == 1 |
|
292
|
0 |
0 |
$name ? : |
|
296
|
0 |
0 |
unless @_ == 1 |
|
299
|
0 |
0 |
$name ? : |
|
303
|
0 |
0 |
unless @_ == 1 |
|
306
|
0 |
0 |
$addr ? : |