| line |
true |
false |
branch |
|
21
|
0 |
0 |
if ($port =~ /\D/) |
|
22
|
0 |
0 |
unless $port = getservbyname($port, 'tcp') |
|
25
|
0 |
0 |
unless my $iaddr = inet_aton($server) |
|
27
|
0 |
0 |
unless socket my $socket, 2, 1, 0 |
|
28
|
0 |
0 |
unless connect $socket, $paddr |
|
41
|
0 |
0 |
unless (shutdown $socket, $dir) |
|
42
|
0 |
0 |
if ($! == 88) |
|
71
|
0 |
0 |
if ($in_open[$ix] and length $buffer[$ix] < $max_buffer_size) |
|
74
|
0 |
0 |
if ($out_open[$ix] and length $buffer[$ix] > 0) |
|
78
|
0 |
0 |
if (select($iv, $ov, undef, 5) > 0) |
|
80
|
0 |
0 |
if ($in_open[$ix] and vec $iv, fileno $in[$ix], 1) |
|
82
|
0 |
0 |
unless ($bytes) |
|
85
|
0 |
0 |
unless (length $buffer[$ix]) |
|
91
|
0 |
0 |
if ($out_open[$ix] and vec $ov, fileno $out[$ix], 1) |
|
93
|
0 |
0 |
if ($bytes) { } |
|
95
|
0 |
0 |
unless ($in_open[$ix] or length $buffer[$ix]) |
|
104
|
0 |
0 |
if ($in_open[$ix]) |