Branch Coverage

blib/lib/App/Memcached/CLI/Main.pm
Criterion Covered Total %
branch 4 96 4.1


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)