File Coverage

blib/lib/Plack/Middleware/Antibot/TooSlow.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	5	6	83.3
condition	6	9	66.6
subroutine	6	6	100.0
pod	2	2	100.0
total	47	51	92.1

package Plack::Middleware::Antibot::TooSlow;

use strict;
use warnings;

use parent 'Plack::Middleware::Antibot::FilterBase';

use Plack::Session;

sub new {
    my $self = shift->SUPER::new(@_);
    my (%params) = @_;

    $self->{session_name} = $params{session_name} || 'antibot_tooslow';
    $self->{timeout}      = $params{timeout}      || 60 * 60;
    $self->{score}        = $params{score}        || 0.8;

    return $self;
}

sub execute {
    my $self = shift;
    my ($env) = @_;

    if ($env->{REQUEST_METHOD} eq 'GET') {
        my $session = Plack::Session->new($env);

        $session->set($self->{session_name}, time);
    }
    elsif ($env->{REQUEST_METHOD} eq 'POST') {
        my $session = Plack::Session->new($env);

        my $too_slow = $session->get($self->{session_name});
        unless ($too_slow && time - $too_slow < $self->{timeout}) {
            $env->{'plack.antibot.tooslow.detected'}++;
        }
    }

    return;
}

1;
__END__