view release on metacpan or  search on metacpan

lib/Data/MuForm/Role/Model/DBIC.pm  view on Meta::CPAN

    return unless $self->validate_unique;
    return 1;
}

sub clear_model {
    my $self = shift;
    $self->model(undef);
    $self->model_id(undef);
}

sub update_model {
    my $self   = shift;
    my $model   = $self->model;
    my $source = $self->source;

    my %update_params = (
        resultset => $self->resultset,
        updates   => $self->values,
        unknown_params_ok => 1,
    );
    $update_params{object} = $self->model if $self->model;