| line |
true |
false |
branch |
|
26
|
0 |
0 |
unless ($ref)
|
|
36
|
0 |
0 |
if ($$self{'host'})
|
|
44
|
0 |
0 |
if ($$self{'port'})
|
|
53
|
0 |
0 |
if ($$self{'_sock'})
|
|
57
|
0 |
0 |
unless $$self{'_sock'} = 'IO::Socket::INET'->new('PeerAddr', $self->_host, 'PeerPort', $self->_port, 'Proto', 'tcp')
|
|
69
|
0 |
0 |
if $DEBUG == $DEBUG_INFO
|
|
71
|
0 |
0 |
unless print {$sock;} $txt
|
|
72
|
0 |
0 |
if $DEBUG == $DEBUG_INFO
|
|
76
|
0 |
0 |
if $DEBUG == $DEBUG_INFO
|
|
78
|
0 |
0 |
if $DEBUG == $DEBUG_INFO
|
|
80
|
0 |
0 |
if $DEBUG == $DEBUG_INFO
|
|
82
|
0 |
0 |
if ($buf =~ /^STAT/msx) { }
|
|
|
0 |
0 |
elsif ($buf =~ /^VALUE/msx) { }
|
|
87
|
0 |
0 |
unless (ref $response)
|
|
100
|
0 |
0 |
if $DEBUG == $DEBUG_INFO
|
|
101
|
0 |
0 |
if ($buf2 =~ /^END/msx)
|
|
111
|
0 |
0 |
if ($buf eq 'END' or $buf eq 'STORED')
|
|
117
|
0 |
0 |
if $DEBUG == $DEBUG_INFO
|
|
125
|
0 |
0 |
unless ($response)
|
|
150
|
0 |
0 |
if ($$self{'_sock'})
|