| line |
true |
false |
branch |
|
82
|
0 |
0 |
unless (getprotobyname $_[0])[2] or (getprotobynumber $_[0])[2] |
|
89
|
0 |
0 |
if $_[0] =~ /^\d+$/u |
|
91
|
0 |
0 |
unless $_[0] =~ /([^(]+)\s*(?:\((\d+)\))?/ux |
|
93
|
0 |
0 |
unless (getservbyname $1, $_[1])[2] or (getservbyport $1, $_[1])[2] or $2 |
|
103
|
0 |
0 |
unless $port |
|
108
|
0 |
0 |
unless my $_host = Coro::Util::inet_aton($host) |
|
140
|
0 |
0 |
$arg{'Proto'} eq 'tcp' ? : |
|
|
0 |
0 |
unless defined $arg{'Type'} |
|
143
|
0 |
0 |
unless socket my $fh, 2, $arg{'Type'}, &_proto($arg{'Proto'}) |
|
150
|
0 |
0 |
unless my $self = bless('Coro::Handle'->new_from_fh($fh, 'timeout', $arg{'Timeout'}, 'forward_class', $arg{'forward_class'}, 'partial', $arg{'partial'}), $class) |
|
159
|
0 |
0 |
if ($arg->{'ReuseAddr'}) |
|
160
|
0 |
0 |
unless $self->setsockopt(1, 2, 1) |
|
164
|
0 |
0 |
if ($arg->{'ReusePort'}) |
|
165
|
0 |
0 |
unless $self->setsockopt(1, 15, 1) |
|
169
|
0 |
0 |
if ($arg->{'Broadcast'}) |
|
170
|
0 |
0 |
unless $self->setsockopt(1, 6, 1) |
|
174
|
0 |
0 |
if ($arg->{'SO_RCVBUF'}) |
|
176
|
0 |
0 |
unless $self->setsockopt(1, 8, $arg->{'SO_RCVBUF'}) |
|
179
|
0 |
0 |
if ($arg->{'SO_SNDBUF'}) |
|
181
|
0 |
0 |
unless $self->setsockopt(1, 7, $arg->{'SO_SNDBUF'}) |
|
184
|
0 |
0 |
if ($arg->{'LocalPort'} or $arg->{'LocalHost'}) |
|
186
|
0 |
0 |
unless $self->bind($sa[0]) |
|
190
|
0 |
0 |
if ($arg->{'PeerHost'}) { } |
|
|
0 |
0 |
elsif (exists $arg->{'Listen'}) { } |
|
196
|
0 |
0 |
if ($self->connect($_)) |
|
197
|
0 |
0 |
unless $self->writable |
|
201
|
0 |
0 |
unless $! |
|
204
|
0 |
0 |
unless $!{'ECONNREFUSED'} or $!{'ENETUNREACH'} or $!{'ETIMEDOUT'} or $!{'EHOSTUNREACH'} |
|
208
|
0 |
0 |
unless $self->listen($arg->{'Listen'}) |