view release on metacpan or  search on metacpan

lib/DBIx/Class/FromValidators.pm  view on Meta::CPAN

                $cols->{$col} = $val;
            } elsif (defined($val = $args->{$col})) {
                $cols->{$col} = $val;
            }
        }

        return $self->create($cols);
    }
}

sub update_from_fv {
    my ($self, $results, $args) = @_;
    croak "pass me a form results object" unless blessed($results);
    croak "pass me a object which can call 'success' and 'valid'"
        unless $results->can('success') and $results->can('valid');
    croak "has error on form" unless $results->success;

    my $cols = $args || {};

    for my $col ($self->result_source->columns) {
        next if defined($cols->{$col});