| line |
true |
false |
branch |
|
32
|
0 |
15 |
if (@_ and $_[0] eq 'sockatmark') { } |
|
48
|
0 |
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 |
0 |
unless @_ == 4 |
|
80
|
0 |
0 |
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 |
0 |
unless @_ == 2 |
|
113
|
0 |
0 |
if $timeout |
|
114
|
0 |
0 |
unless (CORE::connect $sock, $addr) |
|
115
|
0 |
0 |
if (defined $timeout and $!{'EINPROGRESS'}) { } |
|
|
0 |
0 |
elsif ($blocking or not $!{'EINPROGRESS'}) { } |
|
120
|
0 |
0 |
if (not $sel->can_write($timeout)) { } |
|
|
0 |
0 |
elsif (not CORE::connect($sock, $addr) || $!{'EISCONN'}) { } |
|
137
|
0 |
0 |
if $blocking |
|
139
|
0 |
0 |
if $err |
|
141
|
0 |
0 |
$err ? : |
|
145
|
0 |
0 |
unless @_ == 1 |
|
152
|
0 |
0 |
unless @_ == 2 |
|
156
|
0 |
0 |
CORE::bind($sock, $addr) ? : |
|
161
|
0 |
0 |
unless @_ >= 1 and @_ <= 2 |
|
163
|
0 |
0 |
unless $queue and $queue > 0 |
|
166
|
0 |
0 |
CORE::listen($sock, $queue) ? : |
|
171
|
0 |
0 |
unless @_ == 1 or @_ == 2 |
|
178
|
0 |
0 |
if (defined $timeout) |
|
183
|
0 |
0 |
unless ($sel->can_read($timeout)) |
|
185
|
0 |
0 |
exists &Errno::ETIMEDOUT ? : |
|
190
|
0 |
0 |
unless $peer = CORE::accept($new, $sock) |
|
193
|
0 |
0 |
wantarray ? : |
|
198
|
0 |
0 |
unless @_ == 1 |
|
203
|
0 |
0 |
unless @_ == 1 |
|
209
|
0 |
0 |
unless @_ == 1 |
|
215
|
0 |
0 |
unless @_ >= 2 and @_ <= 4 |
|
220
|
0 |
0 |
unless $peer |
|
223
|
0 |
0 |
defined getpeername $sock ? : |
|
228
|
0 |
0 |
if @_ == 4 and defined $r |
|
235
|
0 |
0 |
unless @_ == 3 or @_ == 4 |
|
245
|
0 |
0 |
unless @_ == 2 |
|
252
|
0 |
0 |
unless @_ == 4 |
|
259
|
0 |
0 |
unless @_ == 3 |
|
262
|
0 |
0 |
if defined $r and length $r == $intsize |
|
269
|
0 |
0 |
@_ == 1 ? : |
|
274
|
0 |
0 |
unless @_ == 1 |
|
280
|
0 |
0 |
unless @_ == 1 or @_ == 2 |
|
284
|
0 |
0 |
defined $val ? : |
|
|
0 |
0 |
if @_ == 2 |
|
291
|
0 |
0 |
unless @_ == 1 |
|
297
|
0 |
0 |
unless @_ == 1 |
|
303
|
0 |
0 |
unless @_ == 1 |