| line |
true |
false |
branch |
|
32
|
0 |
23 |
if (@_ and $_[0] eq 'sockatmark') { } |
|
48
|
1 |
0 |
scalar %arg ? : |
|
63
|
0 |
0 |
unless defined $domain |
|
66
|
0 |
0 |
unless defined $domain2pkg[$domain] |
|
69
|
0 |
0 |
unless ref $sock eq 'IO::Socket' |
|
77
|
0 |
1 |
unless @_ == 4 |
|
80
|
0 |
1 |
unless CORE::socket $sock, $domain, $type, $protocol |
|
91
|
0 |
0 |
unless @_ == 4 |
|
96
|
0 |
0 |
unless CORE::socketpair $sock1, $sock2, $domain, $type, $protocol |
|
106
|
0 |
1 |
unless @_ == 2 |
|
113
|
0 |
1 |
if $timeout |
|
114
|
0 |
1 |
unless (CORE::connect $sock, $addr) |
|
115
|
0 |
0 |
if (defined $timeout and $!{'EINPROGRESS'} || $!{'EWOULDBLOCK'}) { } |
|
|
0 |
0 |
elsif ($blocking or not $!{'EINPROGRESS'} || $!{'EWOULDBLOCK'}) { } |
|
121
|
0 |
0 |
if (not $sel->can_write($timeout)) { } |
|
|
0 |
0 |
elsif (not CORE::connect($sock, $addr) || ($!{'EISCONN'} || $! == 10022 && $^O eq 'MSWin32')) { } |
|
141
|
0 |
1 |
if $blocking |
|
143
|
0 |
1 |
if $err |
|
145
|
0 |
1 |
$err ? : |
|
157
|
0 |
0 |
if $^O ne 'MSWin32' |
|
177
|
0 |
0 |
unless @_ |
|
181
|
0 |
0 |
if (!$block != !$orig) |
|
182
|
0 |
0 |
$block ? : |
|
183
|
0 |
0 |
unless ioctl $sock, 2147772030, pack('L!', ${*$sock;}{'io_sock_nonblocking'}) |
|
192
|
0 |
1 |
unless @_ == 1 |
|
199
|
0 |
0 |
unless @_ == 2 |
|
203
|
0 |
0 |
CORE::bind($sock, $addr) ? : |
|
208
|
0 |
0 |
unless @_ >= 1 and @_ <= 2 |
|
210
|
0 |
0 |
unless $queue and $queue > 0 |
|
213
|
0 |
0 |
CORE::listen($sock, $queue) ? : |
|
218
|
0 |
0 |
unless @_ == 1 or @_ == 2 |
|
225
|
0 |
0 |
if (defined $timeout) |
|
230
|
0 |
0 |
unless ($sel->can_read($timeout)) |
|
232
|
0 |
0 |
exists &Errno::ETIMEDOUT ? : |
|
237
|
0 |
0 |
unless $peer = CORE::accept($new, $sock) |
|
240
|
0 |
0 |
wantarray ? : |
|
245
|
0 |
0 |
unless @_ == 1 |
|
250
|
0 |
1 |
unless @_ == 1 |
|
256
|
0 |
0 |
unless @_ == 1 |
|
262
|
0 |
1 |
unless @_ >= 2 and @_ <= 4 |
|
267
|
0 |
1 |
unless defined $peer |
|
270
|
1 |
0 |
defined getpeername $sock ? : |
|
275
|
0 |
1 |
if @_ == 4 and defined $r |
|
282
|
0 |
0 |
unless @_ == 3 or @_ == 4 |
|
292
|
0 |
0 |
unless @_ == 2 |
|
299
|
0 |
0 |
unless @_ == 4 |
|
306
|
0 |
0 |
unless @_ == 3 |
|
309
|
0 |
0 |
if defined $r and length $r == $intsize |
|
316
|
0 |
0 |
@_ == 1 ? : |
|
321
|
0 |
0 |
unless @_ == 1 |
|
327
|
0 |
0 |
unless @_ == 1 or @_ == 2 |
|
331
|
0 |
0 |
defined $val ? : |
|
|
0 |
0 |
if @_ == 2 |
|
338
|
0 |
0 |
unless @_ == 1 |
|
344
|
0 |
0 |
unless @_ == 1 |
|
350
|
0 |
0 |
unless @_ == 1 |