Branch Coverage

blib/lib/App/Memcached/Tool/CLI.pm
Criterion Covered Total %
branch 12 42 28.5


line true false branch
32 4 11 if (defined $ARGV[0] and looks_like_addr($ARGV[0]))
35 9 6 if (defined $ARGV[0] and &first(sub { $_ eq $ARGV[0]; } , MODES()))
40 0 15 unless &GetOptions(\my %opts, 'addr|a=s', 'mode|m=s', 'timeout|t=i', 'debug|d', 'help|h', 'man')
43 0 15 if @ARGV
45 2 13 if (defined $opts{'man'})
48 3 12 if (defined $opts{'help'})
51 0 15 if (defined $opts{'debug'})
61 0 15 unless (&first(sub { $_ eq $params{'mode'}; } , MODES()))
75 0 0 unless ($ret)
90 0 0 if ($line =~ /^STAT items:(\d+):(\w+) (\d+)/)
97 0 0 if ($line =~ /^STAT (\d+):(\w+) (\d+)/)
106 0 0 unless $slab->{'total_pages'}
110 0 0 $slab->{'chunk_size'} < 1024 ? :
112 0 0 $slab->{'free_chunks_end'} == 0 ? :
146 0 0 unless $line =~ /^STAT\s+(\S*)\s+(.*)/
148 0 0 if (length $key > $max_key_l)
149 0 0 if (length $value > $max_val_l)
167 0 0 if ($line =~ /^STAT items:(\d*):number (\d*)/)
184 0 0 if ($line =~ /^ITEM (\S+) \[.* (\d+) s\]/)
194 0 0 $expires{$d->{'key'}} < $now ? :
209 0 0 if ($line =~ /^STAT\s+(\S*)\s+(.*)/)