view release on metacpan or  search on metacpan

lib/Jorge/DBEntity.pm  view on Meta::CPAN

    $query .= ' VALUES (' . join( ',', map { '?' } $self->_params(1) ) . ')';
    if ( $self->_db->execute( $query, $self->_params(1) ) ) {
        $self->get_from_db( $self->_db->get_last_insert_id );
        return $self->{ $self->_pk->[0] };
    }
    else {
        return 0;
    }
}

sub update {
    my $self = shift;

    my @fields     = @{ $self->_fields->[0] };
    my %fields     = %{ $self->_fields->[1] };
    my $table_name = $self->_fields->[2];

    my @pk = grep { $fields{$_}->{pk} } keys %fields;

    $self->before_update();
    $self->before_save();