File Coverage

blib/lib/Plack/Middleware/Throttle/Lite/Backend/Memcached.pm

Criterion	Covered	Total	%
statement	19	24	79.1
branch	1	4	25.0
condition			n/a
subroutine	6	8	75.0
pod	3	3	100.0
total	29	39	74.3

package Plack::Middleware::Throttle::Lite::Backend::Memcached;

# ABSTRACT: Memcache-driven storage backend for Throttle-Lite

use strict;
use warnings;
use Carp ();
use parent 'Plack::Middleware::Throttle::Lite::Backend::Abstract';
use Cache::Memcached::Fast;

our $VERSION = '0.03'; # VERSION
our $AUTHORITY = 'cpan:CHIM'; # AUTHORITY

__PACKAGE__->mk_attrs(qw(mc));

sub init {
    my ($self, $args) = @_;

    my $_handle = Cache::Memcached::Fast->new($args);
    Carp::croak("Cannot get memcached handle") unless keys %{ $_handle->server_versions };

    $self->mc($_handle);
}

sub increment {
    my ($self) = @_;

    $self->mc->set($self->cache_key, 1 + $self->reqs_done, 1 + $self->expire_in);
}

sub reqs_done {
    my ($self) = @_;

    $self->mc->get($self->cache_key) || 0;
}

1; # End of Plack::Middleware::Throttle::Lite::Backend::Memcached

__END__