use strict;
use warnings;
-use base qw/DBIx::Class::Storage::DBI/;
+use base qw/DBIx::Class::Storage::DBI::MultiDistinctEmulation/;
-sub last_insert_id {
- return $_[0]->dbh->func('last_insert_rowid');
+sub _dbh_last_insert_id {
+ my ($self, $dbh, $source, $col) = @_;
+ $dbh->func('last_insert_rowid');
}
1;
-=head1 NAME
+=head1 NAME
DBIx::Class::PK::Auto::SQLite - Automatic primary key class for SQLite