| line |
true |
false |
branch |
|
18
|
0 |
0 |
if $rb <= 0 |
|
24
|
0 |
0 |
$read == $len ? : |
|
30
|
0 |
0 |
unless $host |
|
33
|
0 |
0 |
unless $secret |
|
41
|
0 |
0 |
if (ref $host and ref $host eq 'ARRAY') { } |
|
43
|
0 |
0 |
unless ($h =~ /^[a-zA-Z0-9_\.\-]+:[a-zA-Z0-9_\.\-]+(?:[:][0-9]+)?$/) |
|
57
|
0 |
0 |
unless ($host =~ /^[a-zA-Z0-9_\.\-]+(?:[:][0-9]+)?$/) |
|
79
|
0 |
0 |
if ($vlen <= 65535) { } |
|
102
|
0 |
0 |
unless ref $records and ref $records eq 'ARRAY' |
|
104
|
0 |
0 |
if ($cnt++) { } |
|
111
|
0 |
0 |
if ($record) { } |
|
121
|
0 |
0 |
unless ($cnt) |
|
131
|
0 |
0 |
if ($$self{'_secret'}) |
|
139
|
0 |
0 |
unless ($sock) |
|
140
|
0 |
0 |
if (@{$$self{'_nodes'};} == 1) { } |
|
145
|
0 |
0 |
if ($node) { } |
|
156
|
0 |
0 |
if (not $$self{'_sock'}{"${addr}:$port"} && $$self{'_sock'}{"${addr}:$port"}->connected or $$self{'_sock'}{"${addr}:$port"}->write("\220") != 1) |
|
167
|
0 |
0 |
unless $sock->write("shc\cA") |
|
169
|
0 |
0 |
if ($$self{'_secret'}) |
|
170
|
0 |
0 |
unless $sock->write("\360") |
|
180
|
0 |
0 |
unless ($magic) |
|
181
|
0 |
0 |
if $addr |
|
186
|
0 |
0 |
if ($$self{'_secret'}) |
|
188
|
0 |
0 |
unless ($byte) |
|
189
|
0 |
0 |
if $addr |
|
193
|
0 |
0 |
if (unpack('C', $byte) != 240) |
|
200
|
0 |
0 |
unless ($data) |
|
201
|
0 |
0 |
if $addr |
|
205
|
0 |
0 |
if (unpack('C', $data) == 240) |
|
206
|
0 |
0 |
if $addr |
|
218
|
0 |
0 |
unless ($data = _read_bytes($sock, 2)) |
|
219
|
0 |
0 |
if $addr |
|
225
|
0 |
0 |
unless ($data = _read_bytes($sock, $len)) |
|
226
|
0 |
0 |
if $addr |
|
232
|
0 |
0 |
unless ($data = _read_bytes($sock, 2)) |
|
233
|
0 |
0 |
if $addr |
|
240
|
0 |
0 |
unless ($data = _read_bytes($sock, 1)) |
|
241
|
0 |
0 |
if $addr |
|
247
|
0 |
0 |
if $sep == 0 |
|
252
|
0 |
0 |
if ($$self{'_secret'}) |
|
258
|
0 |
0 |
unless ($data = _read_bytes($sock, 8)) |
|
259
|
0 |
0 |
if $addr |
|
263
|
0 |
0 |
if ($csig ne $data) |
|
264
|
0 |
0 |
if $addr |
|
269
|
0 |
0 |
wantarray ? : |
|
274
|
0 |
0 |
unless $key |
|
280
|
0 |
0 |
unless $key |
|
286
|
0 |
0 |
unless $key and defined $value |
|
289
|
0 |
0 |
if $expire |
|
298
|
0 |
0 |
unless $key and defined $value |
|
301
|
0 |
0 |
if $expire |
|
310
|
0 |
0 |
unless $key |
|
317
|
0 |
0 |
unless $key |
|
329
|
0 |
0 |
unless $key |
|
342
|
0 |
0 |
unless $key |
|
354
|
0 |
0 |
unless $key |
|
369
|
0 |
0 |
if (@{$$self{'_nodes'};} == 1) { } |
|
374
|
0 |
0 |
if ($node) { } |
|
389
|
0 |
0 |
if (not $$self{'_sock'}{$sock_key} && $$self{'_sock'}{$sock_key}->connected or $$self{'_sock'}{$sock_key}->write("\220") != 1) |
|
417
|
0 |
0 |
$node ? : |
|
422
|
0 |
0 |
unless $sock |
|
433
|
0 |
0 |
if $ksize and $kdata |
|
437
|
0 |
0 |
wantarray ? : |
|
444
|
0 |
0 |
unless $sock |
|
447
|
0 |
0 |
unless $resp |
|
449
|
0 |
0 |
$resp ? : |
|
463
|
0 |
0 |
unless $sock |
|
466
|
0 |
0 |
unless $resp |