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 |