| line |
true |
false |
branch |
|
24
|
0 |
0 |
@_ > 1 ? : |
|
35
|
0 |
0 |
@_ > 1 ? : |
|
37
|
0 |
0 |
if $$self{'_sock'} |
|
42
|
0 |
0 |
unless $host |
|
43
|
0 |
0 |
unless $port |
|
47
|
0 |
0 |
if ($host eq 'unix/') { } |
|
48
|
0 |
0 |
unless ($_HAVE_UNIX_SOCKET) |
|
52
|
0 |
0 |
unless $sock = 'IO::Socket::UNIX'->new('Peer', $port, 'Timeout', $$self{'timeout'}) |
|
58
|
0 |
0 |
unless $sock = 'IO::Socket::INET'->new('PeerAddr', $host, 'PeerPort', $port, 'Proto', 'tcp', 'Timeout', $$self{'timeout'}) |
|
83
|
0 |
0 |
unless $$self{'_sock'} or $self->connect |
|
96
|
0 |
0 |
unless my $select = 'IO::Select'->new |
|
103
|
0 |
0 |
unless my(@ready) = $select->can_read($limit - time) |
|
106
|
0 |
0 |
if $sock ne $ready[0] |
|
109
|
0 |
0 |
unless (my $l = $sock->sysread($buf, 512, length $buf)) |
|
122
|
0 |
0 |
if $$self{'_error'} |
|
124
|
0 |
0 |
if ($unpacker->is_finished) |
|
128
|
0 |
0 |
unless ($res and ref $res eq 'ARRAY') |
|
134
|
0 |
0 |
if (my $error = $$res[2]) |