| 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 |