line |
true |
false |
branch |
30
|
0 |
6 |
defined $$opts{'auto_reconnect'} ? :
|
43
|
4 |
2 |
if $$self{'sock'}
|
53
|
0 |
0 |
if @_
|
61
|
0 |
6 |
if $$self{'locked'}
|
65
|
1 |
5 |
unless $$self{'sock'}
|
66
|
0 |
6 |
unless ($self->_send($hashed_key, 16))
|
68
|
0 |
0 |
unless $self->_send($hashed_key, 16)
|
74
|
0 |
0 |
if ($! != 4)
|
81
|
0 |
6 |
unless $res eq 'O'
|
83
|
1 |
5 |
$use_raii ? :
|
90
|
0 |
6 |
unless $$self{'locked'}
|
92
|
1 |
5 |
unless ($self->_send('R', 1))
|
103
|
1 |
6 |
if ($is_reconnect)
|
104
|
0 |
1 |
unless $$self{'auto_reconnect'}
|
105
|
0 |
1 |
if ($$self{'sock'})
|
111
|
0 |
7 |
if ($$self{'_peer'} =~ /^(?:|(.*):)(\d+)$/) { }
|
113
|
0 |
0 |
unless $$self{'sock'} = 'IO::Socket::INET'->new('PeerHost', $host, 'PeerPort', $port, 'Proto', 'tcp')
|
118
|
0 |
0 |
unless setsockopt $$self{'sock'}, 6, 1, 1
|
121
|
2 |
5 |
unless $$self{'sock'} = 'IO::Socket::UNIX'->new('Type', 1, 'Peer', $$self{'_peer'})
|
130
|
0 |
12 |
unless $MSG_NOSIGNAL
|