line |
true |
false |
branch |
18
|
0 |
0 |
if ($rb > 0) { } |
27
|
0 |
0 |
$read == $len ? : |
33
|
0 |
0 |
unless $host |
36
|
0 |
0 |
unless $secret |
44
|
0 |
0 |
if (ref $host and ref $host eq 'ARRAY') { } |
46
|
0 |
0 |
unless ($h =~ /^[a-zA-Z0-9_\.\-]+:[a-zA-Z0-9_\.\-]+(?:[:][0-9]+)?$/) |
60
|
0 |
0 |
unless ($host =~ /^[a-zA-Z0-9_\.\-]+(?:[:][0-9]+)?$/) |
82
|
0 |
0 |
if ($vlen <= 65535) { } |
105
|
0 |
0 |
unless ref $records and ref $records eq 'ARRAY' |
107
|
0 |
0 |
if ($cnt++) { } |
114
|
0 |
0 |
if ($record) { } |
124
|
0 |
0 |
unless ($cnt) |
134
|
0 |
0 |
if ($$self{'_secret'}) |
142
|
0 |
0 |
unless ($sock) |
143
|
0 |
0 |
if (@{$$self{'_nodes'};} == 1) { } |
148
|
0 |
0 |
if ($node) { } |
159
|
0 |
0 |
if (not $$self{'_sock'}{"${addr}:$port"} && $$self{'_sock'}{"${addr}:$port"}->connected or $$self{'_sock'}{"${addr}:$port"}->write("\220") != 1) |
170
|
0 |
0 |
unless $sock->write("shc\cA") |
172
|
0 |
0 |
if ($$self{'_secret'}) |
173
|
0 |
0 |
unless $sock->write("\360") |
183
|
0 |
0 |
unless ($magic) |
184
|
0 |
0 |
if $addr |
189
|
0 |
0 |
if ($$self{'_secret'}) |
191
|
0 |
0 |
unless ($byte) |
192
|
0 |
0 |
if $addr |
196
|
0 |
0 |
if (unpack('C', $byte) != 240) |
203
|
0 |
0 |
unless ($data) |
204
|
0 |
0 |
if $addr |
208
|
0 |
0 |
if (unpack('C', $data) == 240) |
209
|
0 |
0 |
if $addr |
221
|
0 |
0 |
unless ($data = _read_bytes($sock, 2)) |
222
|
0 |
0 |
if $addr |
228
|
0 |
0 |
unless ($data = _read_bytes($sock, $len)) |
229
|
0 |
0 |
if $addr |
235
|
0 |
0 |
unless ($data = _read_bytes($sock, 2)) |
236
|
0 |
0 |
if $addr |
243
|
0 |
0 |
unless ($data = _read_bytes($sock, 1)) |
244
|
0 |
0 |
if $addr |
250
|
0 |
0 |
if $sep == 0 |
255
|
0 |
0 |
if ($$self{'_secret'}) |
262
|
0 |
0 |
unless ($data = _read_bytes($sock, 8)) |
263
|
0 |
0 |
if $addr |
267
|
0 |
0 |
if ($csig ne $data) |
268
|
0 |
0 |
if $addr |
273
|
0 |
0 |
wantarray ? : |
278
|
0 |
0 |
unless $key |
284
|
0 |
0 |
unless $key |
290
|
0 |
0 |
unless $key and defined $value |
293
|
0 |
0 |
if $expire |
302
|
0 |
0 |
unless $key and defined $value |
305
|
0 |
0 |
if $expire |
314
|
0 |
0 |
unless $key |
321
|
0 |
0 |
unless $key |
333
|
0 |
0 |
unless $key |
346
|
0 |
0 |
unless $key |
358
|
0 |
0 |
unless $key |
373
|
0 |
0 |
if (@{$$self{'_nodes'};} == 1) { } |
378
|
0 |
0 |
if ($node) { } |
393
|
0 |
0 |
if (not $$self{'_sock'}{$sock_key} && $$self{'_sock'}{$sock_key}->connected or $$self{'_sock'}{$sock_key}->write("\220") != 1) |
421
|
0 |
0 |
$node ? : |
426
|
0 |
0 |
unless $sock |
437
|
0 |
0 |
if $ksize and $kdata |
441
|
0 |
0 |
wantarray ? : |
448
|
0 |
0 |
unless $sock |
451
|
0 |
0 |
unless $resp |
453
|
0 |
0 |
$resp ? : |
467
|
0 |
0 |
unless $sock |
470
|
0 |
0 |
unless $resp |