| line |
true |
false |
branch |
|
50
|
0 |
2 |
if $] < "5.01" |
|
52
|
0 |
2 |
if (not defined &Fcntl::F_GETFL) |
|
53
|
0 |
0 |
if (not defined prototype 'F_GETFL') { } |
|
73
|
0 |
0 |
unless my $tcp = getprotobyname "tcp" |
|
74
|
0 |
0 |
unless socket $acceptor, 2, 1, $tcp |
|
76
|
0 |
0 |
unless setsockopt $acceptor, 1, 2, 1 |
|
78
|
0 |
0 |
unless my $server_addr = inet_aton("127.0.0.1") |
|
79
|
0 |
0 |
unless $server_addr = pack_sockaddr_in(0, $server_addr) |
|
82
|
0 |
0 |
unless bind $acceptor, $server_addr |
|
88
|
0 |
0 |
unless listen $acceptor, 128 |
|
94
|
0 |
0 |
unless socket $connector, 2, 1, $tcp |
|
98
|
0 |
0 |
unless (connect $connector, $server_addr) |
|
99
|
0 |
0 |
if $! and $! != 115 and $! != 11 |
|
122
|
0 |
0 |
unless ($hits) |
|
123
|
0 |
0 |
if $! and $! == 115 or $! == 11 |
|
124
|
0 |
0 |
unless $hits |
|
128
|
0 |
0 |
if (vec $out_read, fileno $acceptor, 1) |
|
132
|
0 |
0 |
if ($peer_port == $connector_port and $peer_addr eq $connector_addr) |
|
141
|
0 |
0 |
if (vec $out_write, fileno $connector, 1) |
|
143
|
0 |
0 |
if $! |
|
172
|
2 |
0 |
if (defined $conduit_type) |
|
173
|
2 |
0 |
if _try_oneway_type($conduit_type, $debug, \$a_read, \$b_write) |
|
182
|
0 |
0 |
if _try_oneway_type($try_type, $debug, \$a_read, \$b_write) |
|
190
|
0 |
0 |
if $debug |
|
208
|
2 |
0 |
if (defined $conduit_type) |
|
209
|
2 |
0 |
if _try_twoway_type($conduit_type, $debug, \$a_read, \$a_write, \$b_read, \$b_write) |
|
217
|
0 |
0 |
if _try_twoway_type($try_type, $debug, \$a_read, \$a_write, \$b_read, \$b_write) |
|
227
|
0 |
0 |
if $debug |
|
237
|
1 |
1 |
if ($type eq "pipe") |
|
239
|
0 |
1 |
unless pipe $$a_read, $$b_write |
|
243
|
0 |
1 |
if (length $@) |
|
244
|
0 |
0 |
if $debug |
|
248
|
0 |
1 |
if ($debug) |
|
260
|
1 |
0 |
if ($type eq "socketpair") |
|
262
|
0 |
1 |
unless socketpair $$a_read, $$b_write, 1, 1, 0 |
|
266
|
0 |
1 |
if (length $@) |
|
267
|
0 |
0 |
if $debug |
|
271
|
0 |
1 |
if ($debug) |
|
287
|
0 |
0 |
if ($type eq "inet") |
|
292
|
0 |
0 |
if (length $@) |
|
293
|
0 |
0 |
if $debug |
|
297
|
0 |
0 |
if ($debug) |
|
313
|
0 |
0 |
if $debug |
|
323
|
1 |
1 |
if ($type eq "socketpair") |
|
325
|
0 |
1 |
unless socketpair $$a_read, $$b_read, 1, 1, 0 |
|
330
|
0 |
1 |
if (length $@) |
|
331
|
0 |
0 |
if $debug |
|
335
|
0 |
1 |
if ($debug) |
|
352
|
1 |
0 |
if ($type eq "pipe") |
|
354
|
0 |
1 |
unless pipe $$a_read, $$b_write |
|
355
|
0 |
1 |
unless pipe $$b_read, $$a_write |
|
359
|
0 |
1 |
if (length $@) |
|
360
|
0 |
0 |
if $debug |
|
364
|
0 |
1 |
if ($debug) |
|
377
|
0 |
0 |
if ($type eq "inet") |
|
383
|
0 |
0 |
if (length $@) |
|
384
|
0 |
0 |
if $debug |
|
388
|
0 |
0 |
if ($debug) |
|
403
|
0 |
0 |
if $debug |