| line |
true |
false |
branch |
|
166
|
0 |
0 |
exists $args{'namespace'} ? : |
|
168
|
0 |
0 |
exists $args{$_} ? : |
|
175
|
0 |
0 |
if $self->{'compress_enable'} and not $HAVE_ZLIB |
|
176
|
0 |
0 |
if %args |
|
177
|
0 |
0 |
if $self->{'namespace'} =~ /[\x00-\x20\x7F]/u |
|
203
|
0 |
0 |
if ($self->{'noreply'}) |
|
231
|
0 |
0 |
if ($_ eq 'ERROR') { } |
|
|
0 |
0 |
elsif (/(CLIENT|SERVER)_ERROR (.*)/u) { } |
|
244
|
0 |
0 |
if utf8::is_utf8($key) |
|
245
|
0 |
0 |
if utf8::is_utf8($command) |
|
253
|
0 |
0 |
if ($key =~ /[\x00-\x20\x7F]/u) |
|
255
|
0 |
0 |
$args{'cb'} ? : |
|
257
|
0 |
0 |
if ($args{'noreply'} and not $self->{'noreply'}) |
|
258
|
0 |
0 |
if (not $args{'cb'}) { } |
|
266
|
0 |
0 |
if ($args{'noreply'}) |
|
273
|
0 |
0 |
unless ($self->{'peers'}{$srv}{'nrc'}->handles('command')) |
|
282
|
0 |
0 |
if $args{'cb'} |
|
289
|
0 |
0 |
if ($res != -1) { } |
|
|
0 |
0 |
elsif (not %err) { } |
|
312
|
0 |
0 |
if (defined(local $_ = shift())) { } |
|
314
|
0 |
0 |
if (defined $ok) { } |
|
316
|
0 |
0 |
!defined($res) || $res == $ok ? : |
|
340
|
0 |
0 |
if ($cmd eq 'cas') |
|
345
|
0 |
0 |
if $self->{'readonly'} |
|
346
|
0 |
0 |
if ($cas =~ /\D/u) |
|
355
|
0 |
0 |
unless defined $val |
|
357
|
0 |
0 |
if (ref $val) |
|
364
|
0 |
0 |
if ($self->{'compress_threshold'} and $HAVE_ZLIB and $self->{'compress_enable'} and $len >= $self->{'compress_threshold'}) |
|
371
|
0 |
0 |
if ($c_len < $len * 0.8) |
|
384
|
0 |
0 |
if ($_ eq 'STORED') { } |
|
|
0 |
0 |
elsif ($_ eq 'NOT_STORED') { } |
|
|
0 |
0 |
elsif ($_ eq 'EXISTS') { } |
|
390
|
0 |
0 |
defined $cas ? : |
|
397
|
0 |
0 |
if ($res != -1) { } |
|
|
0 |
0 |
elsif (not %err) { } |
|
420
|
0 |
0 |
if (defined(local $_ = shift())) { } |
|
421
|
0 |
0 |
if ($_ eq 'STORED') { } |
|
|
0 |
0 |
elsif ($_ eq 'NOT_STORED') { } |
|
|
0 |
0 |
elsif ($_ eq 'EXISTS') { } |
|
423
|
0 |
0 |
!defined($res) || $res == 1 ? : |
|
427
|
0 |
0 |
!defined($res) && $res == 0 ? : |
|
431
|
0 |
0 |
!defined($res) && $res == 0 ? : |
|
520
|
0 |
0 |
unless ($self->{'cas'}) |
|
553
|
0 |
0 |
@$result ? : |
|
|
0 |
0 |
ref $result eq 'ARRAY' ? : |
|
558
|
0 |
0 |
if ($HAVE_ZLIB and $_->{'flags'} & 2) |
|
561
|
0 |
0 |
if ($_->{'flags'} & 1) |
|
562
|
0 |
0 |
unless eval {
do {
$_->{'data'} = Storable::thaw($_->{'data'});
1
}
} |
|
564
|
0 |
0 |
if (exists $_->{'cas'}) { } |
|
579
|
0 |
0 |
if (ref $keys and ref $keys eq 'ARRAY') |
|
582
|
0 |
0 |
$array ? : |
|
|
0 |
0 |
if (my($key) = grep({/[\x00-\x20\x7F]/u;} $array ? @$keys : $keys)) |
|
584
|
0 |
0 |
$args{'cb'} ? : |
|
592
|
0 |
0 |
$array ? : |
|
609
|
0 |
0 |
unless ($self->{'cas'}) |
|
634
|
0 |
0 |
if $self->{'readonly'} |
|
635
|
0 |
0 |
$args{'delay'} ? : |
|
641
|
0 |
0 |
if ($_ eq 'DELETED') { } |
|
|
0 |
0 |
elsif ($_ eq 'NOT_FOUND') { } |
|
673
|
0 |
0 |
if $self->{'readonly'} |
|
679
|
0 |
0 |
if ($_ eq 'NOT_FOUND') { } |
|
|
0 |
0 |
elsif (/^(\d+)$/u) { } |
|
680
|
0 |
0 |
$1 eq '0' ? : |
|
743
|
0 |
0 |
$args{'+left'} ? : |
|
|
0 |
0 |
exists $args{'+left'} ? : |
|
744
|
0 |
0 |
$args{'+right'} ? : |
|
|
0 |
0 |
exists $args{'+right'} ? : |
|
748
|
0 |
0 |
if (lc $args{'rv'} eq 'array') { } |
|
759
|
0 |
0 |
$err ? : |
|
774
|
0 |
0 |
if (exists $self->{'peers'}{$peer}{'rget_ok'}) { } |
|
775
|
0 |
0 |
if ($self->{'peers'}{$peer}{'rget_ok'}) { } |
|
785
|
0 |
0 |
if (defined $_) { } |
|
786
|
0 |
0 |
if ($_ eq 'END') { } |
|
822
|
0 |
0 |
if (my $rc = shift() or @_) { } |
|
832
|
0 |
0 |
if (my $rc = shift() or @_) { } |
|
865
|
0 |
0 |
if $self->{'debug'} |
|
867
|
0 |
0 |
if $_->{'con'} |