line |
true |
false |
branch |
66
|
0 |
0 |
if ($@) |
79
|
4 |
2 |
if (defined $ARGV[0] and looks_like_addr($ARGV[0])) |
83
|
0 |
6 |
unless &GetOptions(\my %opts, 'addr|a=s', 'timeout|t=i', 'debug|d', 'help|h', 'man') |
87
|
0 |
6 |
if (defined $opts{'debug'}) |
99
|
0 |
0 |
if (@ARGV) { } |
108
|
0 |
0 |
if @ARGV |
111
|
0 |
0 |
if (not $command) { } |
|
0 |
0 |
elsif ($command eq 'quit') { } |
120
|
0 |
0 |
unless ($ret) |
129
|
0 |
0 |
unless ($isa_tty) |
142
|
0 |
0 |
unless $command |
143
|
0 |
0 |
if ($command eq 'quit') |
149
|
0 |
0 |
unless ($ret) |
164
|
0 |
0 |
unless $input |
165
|
0 |
0 |
if $input =~ /\S/ |
169
|
0 |
0 |
unless $command |
184
|
0 |
0 |
if (my $function = $COMMAND_OF{$command}) { } |
|
0 |
0 |
elsif ($command) { } |
192
|
0 |
0 |
if ($info->{'description'}) |
220
|
0 |
0 |
if @aliases |
237
|
0 |
0 |
unless (@keys) |
244
|
0 |
0 |
unless (@$items) |
251
|
0 |
0 |
if $i < scalar(@$items) - 1 |
266
|
0 |
0 |
unless ($key and $value) |
276
|
0 |
0 |
unless ($item->save($self->{'ds'}, 'command', $command)) |
287
|
0 |
0 |
unless ($key and $value and $cas) |
298
|
0 |
0 |
unless ($item->save($self->{'ds'}, 'command', 'cas')) |
314
|
0 |
0 |
unless ($key and defined $number) |
318
|
0 |
0 |
unless ($number =~ /^\d+$/) |
323
|
0 |
0 |
unless (defined $new_value) |
335
|
0 |
0 |
unless ($key and defined $expire) |
339
|
0 |
0 |
unless ($expire =~ /^\d+$/) |
343
|
0 |
0 |
unless ($self->{'ds'}->touch($key, $expire)) |
354
|
0 |
0 |
unless ($key) |
359
|
0 |
0 |
unless ($item->remove($self->{'ds'})) |
379
|
0 |
0 |
unless ($class) |
385
|
0 |
0 |
unless ($line =~ /^ITEM (\S+) \[(\d+) b; (\d+) s\]/) |
404
|
0 |
0 |
if ($line =~ /^STAT items:(\d+):(\w+) (\d+)/) |
411
|
0 |
0 |
if ($line =~ /^STAT (\d+):(\w+) (\d+)/) |
420
|
0 |
0 |
unless $slab->{'total_pages'} |
424
|
0 |
0 |
$slab->{'chunk_size'} < 1024 ? : |
426
|
0 |
0 |
$slab->{'free_chunks_end'} == 0 ? : |
463
|
0 |
0 |
unless $line =~ /^STAT\s+(\S*)\s+(.*)/ |
465
|
0 |
0 |
if (length $key > $max_key_l) |
466
|
0 |
0 |
if (length $value > $max_val_l) |
467
|
0 |
0 |
if $filter and not $key =~ /$filter/ |
488
|
0 |
0 |
unless (&first(sub {
$_ eq $mode;
}
, 'on', 'off')) |
506
|
0 |
0 |
if ($delay) |