File Coverage

blib/lib/HTML/FormFu/Exception/Validator.pm
Criterion Covered Total %
statement 8 8 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 2 0.0
total 12 14 85.7


line stmt bran cond sub pod time code
1             package HTML::FormFu::Exception::Validator;
2              
3 4     4   15 use strict;
  4         5  
  4         142  
4             our $VERSION = '2.05'; # VERSION
5              
6 4     4   14 use Moose;
  4         5  
  4         17  
7             extends 'HTML::FormFu::Exception::Input';
8              
9             sub stage {
10 1     1 0 7 return 'validator';
11             }
12              
13             sub validator {
14 2     2 0 52 return shift->processor(@_);
15             }
16              
17             around render_data_non_recursive => sub {
18             my ( $orig, $self, $args ) = @_;
19              
20             my $render = $self->$orig( {
21             stage => $self->stage,
22             validator => $self->validator,
23             $args ? %$args : (),
24             });
25              
26             return $render;
27             };
28              
29             __PACKAGE__->meta->make_immutable;
30              
31             1;