/usr/local/CPAN/Catalyst-Controller-HTML-FormFu/HTML/FormFu/Constraint/RequestToken.pm

• package HTML::FormFu::Constraint::RequestToken
  • BUILD
  • constrain_value
• EOF

package HTML::FormFu::Constraint::RequestToken;
use Moose;

extends 'HTML::FormFu::Constraint';

sub BUILD {
    my ( $self, $args ) = @_;

    $self->message($self->parent->message);

    return;
}

sub constrain_value {
    my ( $self, $value ) = @_;

    return $self->parent->verify_token( $value );
}

1;