File Coverage

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

Criterion	Covered	Total	%
statement	26	26	100.0
branch	4	4	100.0
condition	6	7	85.7
subroutine	6	6	100.0
pod	2	2	100.0
total	44	45	97.7

package Plack::Middleware::Antibot::FakeField;

use strict;
use warnings;

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

use Plack::Request;

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

    $self->{field_name} = $params{field_name} || 'antibot_fake_field';
    $self->{score}      = $params{score}      || 0.8;

    return $self;
}

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

    if ($env->{REQUEST_METHOD} eq 'POST') {
        my $value = Plack::Request->new($env)->param($self->{field_name});
        if (defined $value && length $value) {
            $env->{'plack.antibot.fakefield.detected'}++;
        }
    }
    else {
        $env->{'plack.antibot.fakefield.field_name'} = $self->{field_name};
        $env->{'plack.antibot.fakefield.html'} = <<"EOF";

Please leave blank


EOF
    }

    return;
}

1;
__END__