blob: 626732de1341be0139db648badee9c3d4fd718bb (
plain) (
tree)
|
|
package Plack::Middleware::Throttle::Limiter;
use Moose;
extends 'Plack::Middleware::Throttle';
sub request_done {
my ( $self, $env ) = @_;
my $key = $self->cache_key($env);
$self->backend->incr($key);
my $request_done = $self->backend->get($key);
if ( !$request_done ) {
$self->backend->set( $key, 1 );
}
$request_done;
}
1;
|