view release on metacpan or  search on metacpan

lib/HTML/FormFu/Model.pm  view on Meta::CPAN

use HTML::FormFu::ObjectUtil qw( form parent );
use Carp qw( croak );

has type => ( is => 'rw', traits => ['Chained'] );

sub default_values {
    croak "'default_values' method not implemented by Model class";
}

sub update {
    croak "'update' method not implemented by Model class";
}

sub create {
    croak "'create' method not implemented by Model class";
}

sub options_from_model {
    croak "'options_from_model' method not implemented by Model class";
}

lib/HTML/FormFu/Model/HashRef.pm  view on Meta::CPAN

                $element->default( $data->{$name} );
            }
        }

    }

    return $self;

}

sub update { shift->create(@_) }

sub create {
    my $self = shift;
    if ( $self->form->submitted ) {
        my $input = _escape_hash( $self->form->input );
        my $hf    = Hash::Flatten->new(
            { ArrayDelimiter => '_', HashDelimiter => '.' } );
        $input = _unescape_hash( $hf->unflatten( $self->form->input ) );
        $self->default_values(
            $self->_unfold_repeatable( $self->form, $input ) );