| line |
true |
false |
branch |
|
18
|
0 |
3 |
if ($@) |
|
71
|
0 |
0 |
@_ > 1 ? : |
|
74
|
0 |
0 |
$XS_AVAILABLE ? : |
|
90
|
0 |
0 |
@_ > 1 ? : |
|
92
|
0 |
0 |
if $$self{'socket'} |
|
100
|
0 |
0 |
if ($host eq 'unix/') { } |
|
101
|
0 |
0 |
unless $socket = 'IO::Socket::UNIX'->new('Peer', $port, 'Timeout', $$self{'timeout'} || 30) |
|
107
|
0 |
0 |
unless $socket = 'IO::Socket::INET'->new('PeerAddr', $host, 'PeerPort', $port, 'Proto', 'tcp', 'Timeout', $$self{'timeout'} || 30) |
|
121
|
0 |
0 |
if ($@) |
|
137
|
0 |
0 |
if $$self{'socket'} |
|
167
|
0 |
0 |
unless $$self{'socket'} |
|
168
|
0 |
0 |
unless $$self{'socket'} |
|
180
|
0 |
0 |
unless my $select = 'IO::Select'->new |
|
186
|
0 |
0 |
unless my(@ready) = $select->can_read($limit - time) |
|
190
|
0 |
0 |
unless $s eq $$self{'socket'} |
|
193
|
0 |
0 |
unless (my $l = $$self{'socket'}->sysread($buf, 512, length $buf)) |
|
201
|
0 |
0 |
if ($@) { } |
|
|
0 |
0 |
elsif ($json) { } |
|
207
|
0 |
0 |
if ($$json{'error'}) { } |