}
sub _dbh_last_insert_id {
- my $self = shift;
- my $sth = $self->_dbh->prepare_cached('select @@identity');
- ($self->_dbh->selectrow_array($sth))[0];
+ my ($self, $dbh, $source, $col) = @_;
+ return ($dbh->selectrow_array('select @@identity'))[0];
}
1;