/usr/share/perl5/HTML/FormFu/Constraint/RequestToken.pm is in libcatalyst-controller-html-formfu-perl 2.02-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | package HTML::FormFu::Constraint::RequestToken;
use strict;
our $VERSION = '2.02'; # VERSION
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;
|