File Coverage

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

Criterion	Covered	Total	%
statement	13	13	100.0
branch	2	2	100.0
condition			n/a
subroutine	5	5	100.0
pod	2	2	100.0
total	22	22	100.0

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

# ABSTRACT: Simple (in-memory) backend for Throttle::Lite

use strict;
use warnings;
use parent 'Plack::Middleware::Throttle::Lite::Backend::Abstract';

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

my $_storage;

sub reqs_done {
    my ($self) = @_;
    exists $_storage->{$self->cache_key} ? $_storage->{$self->cache_key} : 0;
}

sub increment {
    my ($self) = @_;
    $_storage->{$self->cache_key}++;
}

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

__END__