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');
}
sub backup
$self->throw_exception("Cannot determine name of SQLite db file")
if(!$dbname || !-f $dbname);
- print "Found database: $dbname\n";
+# print "Found database: $dbname\n";
my $dbfile = file($dbname);
# my ($vol, $dir, $file) = File::Spec->splitpath($dbname);
my $file = $dbfile->basename();