| line |
true |
false |
branch |
|
29
|
0 |
0 |
unless ref $client |
|
31
|
0 |
0 |
unless not exists $args{'servers'} or ref $args{'servers'} eq 'ARRAY' |
|
35
|
0 |
0 |
exists $args{$_} ? : |
|
50
|
0 |
0 |
defined $line ? : |
|
57
|
0 |
0 |
unless $FLAG_NOSIGNAL |
|
61
|
0 |
0 |
if ($copy_state != $state) |
|
62
|
0 |
0 |
if $state == 2 |
|
64
|
0 |
0 |
if $state == 1 |
|
65
|
0 |
0 |
if $state == 0 |
|
70
|
0 |
0 |
unless $nfound |
|
72
|
0 |
0 |
if (vec $wout, fileno $sock, 1) |
|
75
|
0 |
0 |
if not defined $res and $! == 11 |
|
76
|
0 |
0 |
unless (($res || 0) > 0) |
|
80
|
0 |
0 |
if ($res == length $line) { } |
|
87
|
0 |
0 |
if (vec $rout, fileno $sock, 1) |
|
90
|
0 |
0 |
if not defined $res and $! == 11 |
|
91
|
0 |
0 |
if ($res == 0) |
|
96
|
0 |
0 |
if (rindex($ret, "\r\n") + 2 == length $ret) |
|
102
|
0 |
0 |
unless ($state == 2) |
|
116
|
0 |
0 |
unless my $res = $client->_oneline($sock, $cmd) |
|
124
|
0 |
0 |
if $Active_Sock and fileno $sock == fileno $Active_Sock |
|
139
|
0 |
0 |
unless my $sock = 'IO::Socket::INET'->new('PeerAddr', $ip, 'PeerPort', $port, 'Proto', 'tcp', 'Type', 1, 'ReuseAddr', 1, 'Blocking', 0, 'Timeout', $$client{'connect_timeout'}) |
|
156
|
0 |
0 |
if ($Active_Sock and $Active_Sock->connected and $Socket_Used_Count % $Max_Socket_Reused != 0) { } |
|
165
|
0 |
0 |
if $sock |