File Coverage

blib/lib/HTML/FormFu/Exception/Constraint.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 405     405   2944 use strict;
  405         881  
  405         21500  
2              
3             package HTML::FormFu::Exception::Constraint;
4             # ABSTRACT: Constraint exception
5             $HTML::FormFu::Exception::Constraint::VERSION = '2.07';
6 405     405   2342 use Moose;
  405         797  
  405         2219  
7             extends 'HTML::FormFu::Exception::Input';
8              
9             sub stage {
10 90     90 0 483 return 'constraint';
11             }
12              
13             sub constraint {
14 447     447 0 14767 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             constraint => $self->constraint,
23             $args ? %$args : (),
24             } );
25              
26             return $render;
27             };
28              
29             __PACKAGE__->meta->make_immutable;
30              
31             1;
32              
33             __END__
34              
35             =pod
36              
37             =encoding UTF-8
38              
39             =head1 NAME
40              
41             HTML::FormFu::Exception::Constraint - Constraint exception
42              
43             =head1 VERSION
44              
45             version 2.07
46              
47             =head1 AUTHOR
48              
49             Carl Franks <cpan@fireartist.com>
50              
51             =head1 COPYRIGHT AND LICENSE
52              
53             This software is copyright (c) 2018 by Carl Franks.
54              
55             This is free software; you can redistribute it and/or modify it under
56             the same terms as the Perl 5 programming language system itself.
57              
58             =cut