Branch Coverage

blib/lib/Cache/Memcached/Managed.pm
Criterion Covered Total %
branch 52 206 25.2


line true false branch
69 1 9 @_ < 2 ? :
72 1 9 if (delete $self{'inactive'})
78 9 0 unless $self{'expiration'}
79 9 0 unless length($self{'delimiter'} || '')
80 9 0 unless defined $self{'namespace'}
84 0 9 $self{'group_names'} ? :
89 0 9 unless eval "require $memcached_class; 1"
98 9 9 unless $spec
101 1 8 if (blessed $spec)
104 1 0 if (my $servers = $$spec{'servers'})
113 5 3 if (not $type) { }
1 2 elsif ($type eq 'ARRAY') { }
2 0 elsif ($type eq 'HASH') { }
134 1 1 if (not $type) { }
1 0 elsif ($type eq 'ARRAY') { }
152 0 8 unless $parameters
160 0 9 unless blessed($self{'data'})
163 9 0 unless blessed($self{'directory'})
250 0 0 if $fetched != $value
255 0 0 wantarray ? :
297 0 0 unless $self->_check_socket
302 0 0 @_ == 1 ? :
339 0 0 unless exists $$group_names{$group_name}
385 0 0 unless $reset
421 0 0 unless defined $interval
431 0 0 $interval ? :
432 0 0 if $self->_oneline($data, $action, $_, 'OK')
433 0 0 if $interval
462 0 0 unless $self->_check_socket
467 0 0 @_ == 1 ? :
511 0 0 if keys %param > 1
514 0 0 unless exists $$self{'_group_names'}{$group_name}
531 0 0 if ($delete)
549 0 0 if $delete
557 0 0 unless wantarray
583 0 0 unless $self->_check_socket
590 0 0 @_ == 1 ? :
661 0 0 unless $self->_check_socket
669 0 0 if keys %param > 1
677 0 0 unless exists $$self{'_group_names'}{$group_name}
719 0 0 wantarray ? :
781 0 0 $data == $directory ? :
784 0 0 if $_->can('disconnect_all')
787 0 0 if $_->can('forget_dead_hosts')
834 14 3 wantarray ? :
852 8 0 unless @_
862 0 8 unless system 'memcached', '-d', '-u', scalar getpwuid $>, '-l', $ip, '-p', $port
891 0 3 unless $self->_check_socket
900 0 3 @_ ? :
904 3 3 unless exists $todo{$host} and not exists $result{$host}
994 0 0 unless ($version)
1000 0 0 unless defined $namespace
1011 0 0 if (my $type = ref $id)
1012 0 0 if ($type eq 'ARRAY') { }
0 0 elsif ($type eq 'HASH') { }
0 0 elsif ($type eq 'SCALAR') { }
1051 0 0 unless @_
1070 0 0 if (my $result = $directory->get_multi(splice(@_, 0, $atatime))) { }
1071 0 0 if ($nocleanup) { }
1094 0 0 if (exists $data_key{$data_key}) { }
1120 0 0 unless ($nocleanup)
1144 3 0 if $$ == $_[0]{'_last_pid'} and not exists $_[0]{'_disconnected'}
1150 0 0 if $$ != $$self{'_last_pid'}
1155 0 0 if $$self{'_disconnected'} and time > $$self{'_disconnected'}
1176 0 0 if $key and $key =~ /.+::/ || $key =~ m[^/]
1192 0 0 if ($key =~ s/^:://)
1242 0 0 unless $self->_check_socket
1247 0 0 @_ > 3 ? :
1260 0 0 if $id and $id eq ':unique'
1262 0 0 if not defined $value and $method =~ /(?:decr|incr)$/
1283 0 0 if ($result) { }
0 0 elsif ($method eq 'incr') { }
0 0 elsif ($method ne 'set') { }
1284 0 0 if $method =~ /^(?:decr|incr|replace)$/
1293 0 0 unless ($result)
1296 0 0 if ($data->can('get_sock'))
1297 0 0 if (my $bucket = $data->get_sock($data_key))
1300 0 0 if ($bucket =~ s/^Sock_//)
1301 0 0 unless $directory->incr($bucket)
1332 0 0 unless (defined $index)
1333 0 0 unless (defined $directory->add($directory_key, $index = 1))
1343 0 0 unless ($directory->set($self->_index_key($directory_key, $index), $data_key, $expiration))
1371 1 18 unless defined $expiration
1372 1 17 unless $expiration =~ /^[sSmMhHdDwW\d]+$/
1376 1 16 unless $expiration =~ /\D/
1385 4 12 if $expiration =~ /(\d+)[sS]/
1386 4 12 if $expiration =~ /(\d+)[mM]/
1387 4 12 if $expiration =~ /(\+?\d+)[hH]/
1388 4 12 if $expiration =~ /(\+?\d+)[dD]/
1389 4 12 if $expiration =~ /(\+?\d+)[wW]/
1423 0 0 unless my $found = $self->directory->get($directory_key)
1446 0 0 if $_[1] =~ /^::/
1469 0 0 defined $v ? :
1524 0 3 unless $cache->can('sock_to_host')
1527 3 0 unless my $socket = $cache->sock_to_host($host)
1530 0 0 /^(?:END|ERROR)/ ? :
1548 0 0 unless $cache->can('get_sock')
1551 0 0 unless my $socket = $cache->get_sock([$bucket || 0, 0])
1554 0 0 unless $_oneline ||= $cache->can('_oneline') || $cache->can('_write_and_read')
1560 0 0 defined $send ? :
1565 0 0 unless defined $expect
1599 0 0 if (not defined $type) { }
0 0 elsif ($type eq 'ARRAY') { }