| blib/lib/Cache/Memcached/Managed.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 7 | 70 | 10.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 904 | 0 | 3 | 3 | exists $todo{$host} and not exists $result{$host} |
| 1029 | 0 | 0 | 0 | defined $id && (length $id ? $delimiter . $id : '') |
| 1144 | 0 | 0 | 3 | $$ == $_[0]{'_last_pid'} and not exists $_[0]{'_disconnected'} |
| 1156 | 0 | 0 | 0 | $self->{'_disconnected'} and time > $self->{'_disconnected'} |
| 1176 | 0 | 0 | 0 | $key and $key =~ /.+::/ || $key =~ m[^/] |
| 1260 | 0 | 0 | 0 | $id and $id eq ':unique' |
| 1262 | 0 | 0 | 0 | not defined $value and $method =~ /(?:decr|incr)$/ |
| 1567 | 0 | 0 | 0 | $response && $expect . "\r\n" eq $response |
| line | l | !l | condition |
|---|---|---|---|
| 69 | 0 | 1 | shift() || '127.0.0.1:11211' |
| 79 | 0 | 9 | $self{'delimiter'} || '' |
| 88 | 8 | 1 | $self{'memcached_class'} ||= 'Cache::Memcached' |
| 237 | 0 | 0 | eval { do { local $SIG{'ALRM'} = sub { die "timed out\n"; } ; alarm $timeout; $server->set($key, $value); my $result = $server->get($key); $server->delete($key) if $result; $result } } || 0 |
| 550 | 0 | 0 | $id or '' |
| 985 | 0 | 0 | $levels ||= 2 |
| 1181 | 0 | 0 | $levels ||= 2 |
| 1286 | 0 | 0 | $value || 1 |
| 1428 | 0 | 0 | $self->directory->get($self->_lowest_index_key($directory_key)) || 1 |
| 1446 | 0 | 0 | $_[2] || 0 |
| 1551 | 0 | 0 | $bucket || 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 219 | 0 | 0 | 0 | shift() || $pingtime |
| 996 | 0 | 0 | 0 | ($key =~ /^(.*)::/ ? ${$1 . '::VERSION';} : '') || ($key =~ m[^/] ? $main::VERSION : '') || $Cache::Memcached::Managed::VERSION |
| 1176 | 0 | 0 | 0 | $key =~ /.+::/ || $key =~ m[^/] |
| 1183 | 0 | 0 | 0 | (caller $levels)[3] || ($0 =~ m[^/] ? $0 : do { my $pwd = `pwd`; chomp $pwd; $pwd } . "/$0") |
| 1191 | 0 | 0 | 0 | $key ||= $caller |
| 1505 | 0 | 0 | 0 | $_[1] || 20 + int(rand 10) |
| 1554 | 0 | 0 | 0 | $cache->can('_oneline') || $cache->can('_write_and_read') |
| 0 | 0 | 0 | $_oneline ||= $cache->can('_oneline') || $cache->can('_write_and_read') |