| HTML-FormFu documentation | Contained in the HTML-FormFu distribution. |
HTML::FormFu::Constraint::Callback - Code Callback Constraint
$field->constraint({
type => 'Callback',
callback => \&foo,
});
---
elements:
- type: Text
name: foo
constraints:
- type: Callback
callback: "main::my_constraint"
sub foo {
my ( $value, $params ) = @_;
# return true or false
}
The first argument passed to the callback is the submitted value for the associated field. The second argument passed to the callback is a hashref of name/value pairs for all input fields.
This constraint doesn't honour the not() value.
Arguments: \&code-reference
Arguments: "subroutine-name"
Is a sub-class of, and inherits methods from HTML::FormFu::Constraint
Carl Franks cfranks@cpan.org
This library is free software, you can redistribute it and/or modify it under the same terms as Perl itself.
| HTML-FormFu documentation | Contained in the HTML-FormFu distribution. |
package HTML::FormFu::Constraint::Callback; use Moose; extends 'HTML::FormFu::Constraint'; has callback => ( is => 'rw', traits => ['Chained'] ); sub constrain_value { my ( $self, $value, $params ) = @_; my $callback = $self->callback || sub {1}; no strict 'refs'; my $ok = $callback->( $value, $params ); return $ok; } __PACKAGE__->meta->make_immutable; 1; __END__