| line |
true |
false |
branch |
|
53
|
0 |
2 |
if $] < 5.01 |
|
55
|
0 |
2 |
if (not defined &Fcntl::F_GETFL) |
|
56
|
0 |
0 |
if (not defined prototype 'F_GETFL') { } |
|
76
|
0 |
0 |
unless my $tcp = getprotobyname 'tcp' |
|
77
|
0 |
0 |
unless socket $acceptor, 2, 1, $tcp |
|
79
|
0 |
0 |
unless setsockopt $acceptor, 1, 2, 1 |
|
81
|
0 |
0 |
unless my $server_addr = inet_aton('127.0.0.1') |
|
82
|
0 |
0 |
unless $server_addr = pack_sockaddr_in(0, $server_addr) |
|
85
|
0 |
0 |
unless bind $acceptor, $server_addr |
|
91
|
0 |
0 |
unless listen $acceptor, 128 |
|
97
|
0 |
0 |
unless socket $connector, 2, 1, $tcp |
|
101
|
0 |
0 |
unless (connect $connector, $server_addr) |
|
102
|
0 |
0 |
if $! and $! != 115 and $! != 11 |
|
125
|
0 |
0 |
unless ($hits) |
|
126
|
0 |
0 |
if $! and $! == 115 or $! == 11 |
|
127
|
0 |
0 |
unless $hits |
|
131
|
0 |
0 |
if (vec $out_read, fileno $acceptor, 1) |
|
135
|
0 |
0 |
if ($peer_port == $connector_port and $peer_addr eq $connector_addr) |
|
144
|
0 |
0 |
if (vec $out_write, fileno $connector, 1) |
|
146
|
0 |
0 |
if $! |
|
175
|
2 |
0 |
if (defined $conduit_type) |
|
176
|
2 |
0 |
if _try_oneway_type($conduit_type, $debug, \$a_read, \$b_write) |
|
185
|
0 |
0 |
if _try_oneway_type($try_type, $debug, \$a_read, \$b_write) |
|
193
|
0 |
0 |
if $debug |
|
211
|
2 |
0 |
if (defined $conduit_type) |
|
212
|
2 |
0 |
if _try_twoway_type($conduit_type, $debug, \$a_read, \$a_write, \$b_read, \$b_write) |
|
220
|
0 |
0 |
if _try_twoway_type($try_type, $debug, \$a_read, \$a_write, \$b_read, \$b_write) |
|
230
|
0 |
0 |
if $debug |
|
240
|
1 |
1 |
if ($type eq 'pipe') |
|
242
|
0 |
1 |
unless pipe $$a_read, $$b_write |
|
246
|
0 |
1 |
if (length $@) |
|
247
|
0 |
0 |
if $debug |
|
251
|
0 |
1 |
if ($debug) |
|
263
|
1 |
0 |
if ($type eq 'socketpair') |
|
265
|
0 |
1 |
unless socketpair $$a_read, $$b_write, 1, 1, 0 |
|
269
|
0 |
1 |
if (length $@) |
|
270
|
0 |
0 |
if $debug |
|
274
|
0 |
1 |
if ($debug) |
|
290
|
0 |
0 |
if ($type eq 'inet') |
|
295
|
0 |
0 |
if (length $@) |
|
296
|
0 |
0 |
if $debug |
|
300
|
0 |
0 |
if ($debug) |
|
316
|
0 |
0 |
if $debug |
|
326
|
1 |
1 |
if ($type eq 'socketpair') |
|
328
|
0 |
1 |
unless socketpair $$a_read, $$b_read, 1, 1, 0 |
|
333
|
0 |
1 |
if (length $@) |
|
334
|
0 |
0 |
if $debug |
|
338
|
0 |
1 |
if ($debug) |
|
355
|
1 |
0 |
if ($type eq 'pipe') |
|
357
|
0 |
1 |
unless pipe $$a_read, $$b_write |
|
358
|
0 |
1 |
unless pipe $$b_read, $$a_write |
|
362
|
0 |
1 |
if (length $@) |
|
363
|
0 |
0 |
if $debug |
|
367
|
0 |
1 |
if ($debug) |
|
380
|
0 |
0 |
if ($type eq 'inet') |
|
386
|
0 |
0 |
if (length $@) |
|
387
|
0 |
0 |
if $debug |
|
391
|
0 |
0 |
if ($debug) |
|
406
|
0 |
0 |
if $debug |