File Coverage

blib/lib/Data/Throttler/Memcached.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

# $Id: /mirror/perl/Data-Throttler-Memcached/trunk/lib/Data/Throttler/Memcached.pm 8774 2007-11-08T09:43:20.728908Z daisuke  $
#
# Copyright (c) 2007 Daisuke Maki
# All rights reserved.
package Data::Throttler::Memcached;
use strict;
use warnings;
use base qw(Data::Throttler);
use Data::Throttler::BucketChain::Memcached;

our $VERSION = '0.00003';

sub new
{
    my $class = shift;
    my %args  = @_;
    my $empty = sub {};
    my $self  = bless {
        lock   => $empty,
        unlock => $empty,
        db     => { chain => {} }
    }, $class;

    $self->{lock}->();
    $self->{db}->{chain} = Data::Throttler::BucketChain::Memcached->new(
        max_items => $args{max_items},
        interval  => $args{interval},
        cache     => $args{cache}
    );
    $self->{unlock}->();

    return $self;
}

1;

__END__