| blib/lib/IPC/Lock/Memcached.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 0 | 6 | 0.0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 10 | 0 | 0 | 0 | $$self{'memcached'} ||= do { unless ($$self{'memcached_servers'}) { die 'need $self->{memcached_servers}, check perldoc for usage'; } ; require Cache::Memcached; 'Cache::Memcached'->new({'servers', $$self{'memcached_servers'}}) } |
| 31 | 0 | 0 | 0 | shift() || $$self{'key'} |