| 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) |