Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- sub build_hoh {
- my $self = shift;
- my %params;
- my $form = $self->form;
- for my $fieldname ( $form->fieldnames ) {
- my $field = $form->field($fieldname);
- if ( $field->value ) {
- $params{'field_name'} = $fieldname;
- $params{$fieldname}{'value'} = $field->value;
- $params{$fieldname}{'validators'} = $field->field_validators->{$fieldname};
- }
- }
- return %params;
- }
Add Comment
Please, Sign In to add comment