| line |
true |
false |
branch |
|
55
|
0 |
1 |
unless my $client = "IO::Socket::INET"->new("PeerAddr", $host, "PeerPort", $port, "Proto", "tcp", "Timeout", $timeout, "ReuseAddr", 1)
|
|
65
|
0 |
1 |
unless $client->setsockopt(6, 1, 1)
|
|
68
|
0 |
1 |
unless my $select = "IO::Select"->new($client)
|
|
94
|
0 |
3 |
unless ($select->can_write($timeout))
|
|
97
|
0 |
3 |
unless my $bytes_written = $client->syswrite($command, $length, $written)
|
|
119
|
2 |
1 |
if ($args{'read_length'}) { }
|
|
124
|
0 |
4 |
unless ($select->can_read($timeout))
|
|
127
|
0 |
4 |
unless my $read_bytes = $client->sysread($string, $read_length, $length)
|
|
135
|
0 |
1 |
unless ($select->can_read($timeout))
|
|
138
|
0 |
1 |
unless $client->sysread($string, $read_length)
|