File Coverage

blib/lib/HTML/FormFu/Constraint/RequestToken.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 2 0.0
total 15 17 88.2


line stmt bran cond sub pod time code
1             package HTML::FormFu::Constraint::RequestToken;
2              
3 2     2   1344 use strict;
  2         6  
  2         139  
4              
5             our $VERSION = '2.02'; # VERSION
6              
7 2     2   12 use Moose;
  2         4  
  2         15  
8              
9             extends 'HTML::FormFu::Constraint';
10              
11             sub BUILD {
12 27     27 0 39041 my ( $self, $args ) = @_;
13              
14 27         112 $self->message($self->parent->message);
15              
16 27         343 return;
17             }
18              
19             sub constrain_value {
20 8     8 0 27648 my ( $self, $value ) = @_;
21              
22 8         30 return $self->parent->verify_token( $value );
23             }
24              
25             1;