File Coverage

blib/lib/IPC/Lock/Memcached.pm

Criterion	Covered	Total	%
statement	9	22	40.9
branch	0	2	0.0
condition	0	6	0.0
subroutine	3	6	50.0
pod	0	3	0.0
total	12	39	30.7

package IPC::Lock::Memcached;

use strict;
use warnings;

use base qw(IPC::Lock);

sub memcached {
  my $self = shift;
  $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},
    });
  };
}

sub atomic {
  my $self = shift;
  my $key = shift;
  my $ttl = shift;

  return $self->memcached->add($key, $self->atomic_value, $ttl);
}

sub unatomic {
  my $self = shift;
  my $key = shift || $self->{key};
  return $self->memcached->delete($key);
}

1;

__END__