| line |
true |
false |
branch |
|
31
|
0 |
0 |
unless my $ds = 'Cache::Memcached::Fast'->new({'servers', [$addr], 'namespace', $DEFAULT_NAMESPACE, 'connect_timeout', 3}) |
|
36
|
0 |
0 |
unless ($ds->server_versions->{$addr}) |
|
48
|
0 |
0 |
unless &Getopt::Long::GetOptionsFromArray(\@args, \my %opts, 'addr|a=s', 'num|n=s', 'max-size|S=s', 'debug|d', 'help|h', 'man') |
|
52
|
0 |
0 |
if @args |
|
54
|
0 |
0 |
if ($opts{'max-size'} and $opts{'max-size'} =~ /^(\d+)[kK]$/) |
|
79
|
0 |
0 |
unless ($self->ds->set($key, 'x' x $size)) |
|
82
|
0 |
0 |
if ((my $_pos = int $j * 20 / $data->{'num'}) > $pos) |
|
86
|
0 |
0 |
if $j % $INTERVAL == 0 |
|
104
|
0 |
0 |
if ($self->ds) |