get for add page works

[scpubgit/Commentry.git] / lib / App / Commentry / CaptchaHandler / Fixed.pm

package App::Commentry::CaptchaHandler::Fixed;

use Moo;

has challenge => (is => 'ro', default => sub {
  q{What is mst the chainsaw wielder's weapon of choice?}
});

has field_name => (is => 'ro', default => sub { 'captcha_response' });

has response_match => (is => 'ro', default => sub { qr/(?i:chainsaw)/ });

sub challenge_html {
  my ($self) = @_;

  my $field_name = $self->field_name;

  use HTML::Tags;
  join '', HTML::Tags::to_html_string(
    <p>, $self->challenge, </p>, "\n",
    <input name="${field_name}" />, "\n",
  );
}

sub check_response {
  my ($self, $params) = @_;
  my $match = $self->response_match;
  !!($params->{$self->field_name} =~ /$match/);
}

1;