| line |
true |
false |
branch |
|
117
|
0 |
0 |
exists $args{'namespace'} ? : |
|
119
|
0 |
0 |
exists $args{$_} ? : |
|
121
|
0 |
0 |
if $self->{'compress_enable'} and not $HAVE_ZLIB |
|
122
|
0 |
0 |
if %args |
|
135
|
0 |
0 |
unless ref $list eq 'ARRAY' |
|
144
|
0 |
0 |
if (@{$self->{'servers'};} == 1) |
|
153
|
0 |
0 |
if $self->{'buckets'} |
|
157
|
0 |
0 |
if (ref $v eq 'ARRAY') { } |
|
201
|
0 |
0 |
if ($_ eq 'ERROR') { } |
|
|
0 |
0 |
elsif (/(CLIENT|SERVER)_ERROR (.*)/u) { } |
|
215
|
0 |
0 |
ref $key ? : |
|
219
|
0 |
0 |
wantarray ? : |
|
228
|
0 |
0 |
if $self->{'readonly'} |
|
230
|
0 |
0 |
unless (my $peer, $key) = $self->_p4k($key) |
|
234
|
0 |
0 |
unless defined $val |
|
236
|
0 |
0 |
if (ref $val) |
|
243
|
0 |
0 |
if ($self->{'compress_threshold'} and $HAVE_ZLIB and $self->{'compress_enable'} and $len >= $self->{'compress_threshold'}) |
|
250
|
0 |
0 |
if ($c_len < $len * 0.8) |
|
261
|
0 |
0 |
if (defined(local $_ = shift())) { } |
|
262
|
0 |
0 |
if ($_ eq 'STORED') { } |
|
|
0 |
0 |
elsif ($_ eq 'NOT_STORED') { } |
|
|
0 |
0 |
elsif ($_ eq 'EXISTS') { } |
|
360
|
0 |
0 |
if ($HAVE_ZLIB and $_->{'flags'} & 2) |
|
363
|
0 |
0 |
if ($_->{'flags'} & 1) |
|
364
|
0 |
0 |
unless eval {
do {
$_->{'data'} = Storable::thaw($_->{'data'});
1
}
} |
|
378
|
0 |
0 |
if (ref $keys and ref $keys eq 'ARRAY') { } |
|
398
|
0 |
0 |
$array ? : |
|
435
|
0 |
0 |
if $self->{'readonly'} |
|
436
|
0 |
0 |
unless (my $peer, $key) = $self->_p4k($key) |
|
437
|
0 |
0 |
$args{'delay'} ? : |
|
438
|
0 |
0 |
if ($args{'noreply'}) { } |
|
440
|
0 |
0 |
if $args{'cb'} |
|
445
|
0 |
0 |
if (defined(local $_ = shift())) { } |
|
446
|
0 |
0 |
if ($_ eq 'DELETED') { } |
|
|
0 |
0 |
elsif ($_ eq 'NOT_FOUND') { } |
|
486
|
0 |
0 |
if $self->{'readonly'} |
|
487
|
0 |
0 |
unless (my $peer, $key) = $self->_p4k($key) |
|
488
|
0 |
0 |
if ($args{'noreply'}) { } |
|
490
|
0 |
0 |
if $args{'cb'} |
|
495
|
0 |
0 |
if (defined(local $_ = shift())) { } |
|
496
|
0 |
0 |
if ($_ eq 'NOT_FOUND') { } |
|
|
0 |
0 |
elsif (/^(\d+)$/u) { } |
|
500
|
0 |
0 |
$1 eq '0' ? : |
|
564
|
0 |
0 |
$args{'+left'} ? : |
|
|
0 |
0 |
exists $args{'+left'} ? : |
|
565
|
0 |
0 |
$args{'+right'} ? : |
|
|
0 |
0 |
exists $args{'+right'} ? : |
|
576
|
0 |
0 |
$err ? : |
|
592
|
0 |
0 |
if (exists $self->{'peers'}{$peer}{'rget_ok'}) { } |
|
593
|
0 |
0 |
if ($self->{'peers'}{$peer}{'rget_ok'}) { } |
|
603
|
0 |
0 |
if ($_ eq 'END') { } |
|
636
|
0 |
0 |
if $self->{'debug'} |
|
638
|
0 |
0 |
if $_->{'con'} |