use base qw/DBIx::Class::Storage::DBI/;
-sub last_insert_id {
- my $self = shift;
- my ($id) =
- $self->dbh_do( sub { shift->selectrow_array('SELECT @@IDENTITY' ) } );
+sub _dbh_last_insert_id {
+ my ($self, $dbh, $source, $col) = @_;
+ my ($id) = $dbh->selectrow_array('SELECT @@IDENTITY');
return $id;
}