1use strict; 2 3package HTML::FormFu::Exception::Constraint; 4# ABSTRACT: Constraint exception 5$HTML::FormFu::Exception::Constraint::VERSION = '2.07'; 6use Moose; 7extends 'HTML::FormFu::Exception::Input'; 8 9sub stage { 10 return 'constraint'; 11} 12 13sub constraint { 14 return shift->processor(@_); 15} 16 17around 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 311; 32 33__END__ 34 35=pod 36 37=encoding UTF-8 38 39=head1 NAME 40 41HTML::FormFu::Exception::Constraint - Constraint exception 42 43=head1 VERSION 44 45version 2.07 46 47=head1 AUTHOR 48 49Carl Franks <cpan@fireartist.com> 50 51=head1 COPYRIGHT AND LICENSE 52 53This software is copyright (c) 2018 by Carl Franks. 54 55This is free software; you can redistribute it and/or modify it under 56the same terms as the Perl 5 programming language system itself. 57 58=cut 59