| line |
true |
false |
branch |
|
70
|
0 |
0 |
if (defined $sync) { } |
|
71
|
0 |
0 |
if exists $$sent{$sync} |
|
78
|
0 |
0 |
unless (%$sent) |
|
80
|
0 |
0 |
if (select(my $rout = $rin, undef, undef, 0) > 0) |
|
81
|
0 |
0 |
if (sysread $socket, my $buf, 1) { } |
|
92
|
0 |
0 |
if ($server->debug >= 5) |
|
100
|
0 |
0 |
if (not defined $written) { } |
|
101
|
0 |
0 |
if ($! != 4) |
|
102
|
0 |
0 |
if $! == 11 |
|
113
|
0 |
0 |
if ($ok) { } |
|
114
|
0 |
0 |
if ($no_reply) { } |
|
143
|
0 |
0 |
if (not defined $read) { } |
|
|
0 |
0 |
elsif ($read == 0) { } |
|
144
|
0 |
0 |
if ($! != 4) |
|
145
|
0 |
0 |
if $! == 11 |
|
155
|
0 |
0 |
if $dump_resp |
|
157
|
0 |
0 |
unless $callback = delete $$sent{$sync} |
|
163
|
0 |
0 |
if (not defined $read) { } |
|
|
0 |
0 |
elsif ($read == 0) { } |
|
164
|
0 |
0 |
if ($! != 4) |
|
165
|
0 |
0 |
if $! == 11 |
|
175
|
0 |
0 |
if $dump_resp |
|
178
|
0 |
0 |
if ($ok) { } |
|
180
|
0 |
0 |
unless $callback |
|
198
|
0 |
0 |
if $self->_has_socket |
|
209
|
0 |
0 |
if $server->debug >= 4 |
|
215
|
0 |
0 |
unless (my $socket = 'IO::Socket::INET'->new('PeerHost', $self->host, 'PeerPort', $self->port, 'Proto', 'tcp', 'Timeout', $self->connect_timeout)) |
|
217
|
0 |
0 |
if ($@ eq 'timeout') |
|
224
|
0 |
0 |
if $self->tcp_keepalive |
|
225
|
0 |
0 |
if $self->tcp_nodelay |
|
226
|
0 |
0 |
if $self->timeout |
|
227
|
0 |
0 |
if $server->debug >= 4 |
|
244
|
0 |
0 |
if (not $error) { } |
|
|
0 |
0 |
elsif ($error =~ /^(.+?) at \S+ line \d+/s) { } |
|
252
|
0 |
0 |
if ($self->_has_socket) |
|
258
|
0 |
0 |
if ($sync and $callback) |