HTML::FormFu::Constraint::AutoSet - Set Constraint for Selects / Radiogroups / Checkboxgroups

HTML-FormFu documentation

Contained in the HTML-FormFu distribution.

Index

NAME
DESCRIPTION
SEE ALSO
AUTHOR
LICENSE

Code Index:

package HTML::FormFu::Constraint::AutoSet
- process
- _parse_value
__END__
EOF

NAME

HTML::FormFu::Constraint::AutoSet - Set Constraint for Selects / Radiogroups / Checkboxgroups

DESCRIPTION

For use with HTML::FormFu::Element::Radiogroup, HTML::FormFu::Element::Select and HTML::FormFu::Element::Checkboxgroup fields.

Ensures that the input value is one of the pre-defined element options.

SEE ALSO

Is a sub-class of, and inherits methods from HTML::FormFu::Constraint::Set

AUTHOR

Carl Franks cfranks@cpan.org

LICENSE

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::AutoSet;

use Moose;
extends 'HTML::FormFu::Constraint::Set';

sub process {
    my $self = shift;

    my @set = map { _parse_value($_) } @{ $self->parent->_options };

    $self->set( \@set );

    return $self->SUPER::process(@_);
}

sub _parse_value {
    my ($item) = @_;

    if ( exists $item->{group} ) {
        return map { _parse_value($_) } @{ $item->{group} };
    }
    else {
        return $item->{value};
    }
}

__PACKAGE__->meta->make_immutable;

1;

__END__