sub last_insert_id {
my ($self,$source,$col) = @_;
my $seq = ($source->column_info($col)->{sequence} ||= $self->get_autoinc_seq($source,$col));
+ $self->throw_exception("could not fetch primary key for " . $source->name . ", could not "
+ . "get autoinc sequence for $col (check that table and column specifications are correct "
+ . "and in the correct case)") unless defined $seq;
$self->dbh_do($self->can('_dbh_last_insert_id'), $seq);
}
my ($self,$data_type) = @_;
my $bind_attributes = {
- bytea => { pg_type => DBD::Pg::PG_BYTEA },
+ bytea => { pg_type => DBD::Pg::PG_BYTEA },
};
if( defined $bind_attributes->{$data_type} ) {
- return $bind_attributes->{$data_type}
+ return $bind_attributes->{$data_type};
}
else {
return;