| line |
true |
false |
branch |
|
71
|
0 |
0 |
if ($@) |
|
84
|
4 |
2 |
if (defined $ARGV[0] and looks_like_addr($ARGV[0])) |
|
88
|
0 |
6 |
unless &GetOptions(\my %opts, 'addr|a=s', 'timeout|t=i', 'debug|d', 'help|h', 'man') |
|
92
|
0 |
6 |
if (defined $opts{'debug'}) |
|
104
|
0 |
0 |
if (@ARGV) { } |
|
113
|
0 |
0 |
if @ARGV |
|
116
|
0 |
0 |
$command ? : |
|
125
|
0 |
0 |
unless ($ret) |
|
134
|
0 |
0 |
unless ($isa_tty) |
|
147
|
0 |
0 |
unless $command |
|
148
|
0 |
0 |
if ($command eq 'quit') |
|
152
|
0 |
0 |
unless ($self->{'ds'}->ping) |
|
159
|
0 |
0 |
unless ($ret) |
|
174
|
0 |
0 |
unless $input |
|
175
|
0 |
0 |
if $input =~ /\S/ |
|
179
|
0 |
0 |
unless $command |
|
194
|
0 |
0 |
if (my $function = $COMMAND_OF{$command}) { } |
|
|
0 |
0 |
elsif ($command) { } |
|
202
|
0 |
0 |
if ($info->{'description'}) |
|
230
|
0 |
0 |
if @aliases |
|
237
|
0 |
0 |
unless (@commands) |
|
259
|
0 |
0 |
unless (@keys) |
|
266
|
0 |
0 |
unless (@$items) |
|
270
|
0 |
0 |
if (@$items == 1) |
|
291
|
0 |
0 |
unless ($key and $value) |
|
301
|
0 |
0 |
unless ($item->save($self->{'ds'}, 'command', $command)) |
|
312
|
0 |
0 |
unless ($key and $value and $cas) |
|
323
|
0 |
0 |
unless ($item->save($self->{'ds'}, 'command', 'cas')) |
|
339
|
0 |
0 |
unless ($key and defined $number) |
|
343
|
0 |
0 |
unless ($number =~ /^\d+$/) |
|
348
|
0 |
0 |
unless (defined $new_value) |
|
360
|
0 |
0 |
unless ($key and defined $expire) |
|
364
|
0 |
0 |
unless ($expire =~ /^\d+$/) |
|
368
|
0 |
0 |
unless ($self->{'ds'}->touch($key, $expire)) |
|
379
|
0 |
0 |
unless ($key) |
|
384
|
0 |
0 |
unless ($item->remove($self->{'ds'})) |
|
404
|
0 |
0 |
unless ($class) |
|
411
|
0 |
0 |
unless ($line =~ /^ITEM (\S+) \[(\d+) b; (\d+) s\]/) |
|
418
|
0 |
0 |
unless %expires |
|
440
|
0 |
0 |
if ($line =~ /^STAT items:(\d+):(\w+) (\d+)/) |
|
447
|
0 |
0 |
if ($line =~ /^STAT (\d+):(\w+) (\d+)/) |
|
456
|
0 |
0 |
unless $slab->{'total_pages'} |
|
460
|
0 |
0 |
$slab->{'chunk_size'} < 1024 ? : |
|
462
|
0 |
0 |
$slab->{'free_chunks_end'} == 0 ? : |
|
499
|
0 |
0 |
unless $line =~ /^STAT\s+(\S*)\s+(.*)/ |
|
501
|
0 |
0 |
if (length $key > $max_key_l) |
|
502
|
0 |
0 |
if (length $value > $max_val_l) |
|
503
|
0 |
0 |
if $filter and not $key =~ /$filter/ |
|
524
|
0 |
0 |
unless (&first(sub {
$_ eq $mode;
}
, 'on', 'off')) |
|
533
|
0 |
0 |
unless ($response =~ /^OK/) |
|
548
|
0 |
0 |
if ($line =~ /^STAT items:(\d*):number (\d*)/) |
|
565
|
0 |
0 |
if ($line =~ /^ITEM (\S+) \[.* (\d+) s\]/) |
|
575
|
0 |
0 |
$expires{$d->{'key'}} < $now ? : |
|
589
|
0 |
0 |
unless ($file and -r $file) |
|
594
|
0 |
0 |
unless open my $fh, '<', $file |
|
599
|
0 |
0 |
if ($i % 200 == 0) |
|
613
|
0 |
0 |
if ($delay) |
|
634
|
0 |
0 |
unless ($self->{'ds'}->set($key, $value)) |
|
637
|
0 |
0 |
if ((my $_pos = int $i * 20 / $num) > $pos) |
|
641
|
0 |
0 |
if $i % 100 == 0 |