lib/DBIx/Class/Storage/DBI/SQLite.pm

   1 package DBIx::Class::Storage::DBI::SQLite;
   2
   3 use strict;
   4 use warnings;
   5
   6 use base qw/DBIx::Class::Storage::DBI::MultiDistinctEmulation/;
   7
   8 sub _dbh_last_insert_id {
   9   my ($self, $dbh, $source, $col) = @_;
  10   $dbh->func('last_insert_rowid');
  11 }
  12
  13 1;
  14
  15 =head1 NAME
  16
  17 DBIx::Class::PK::Auto::SQLite - Automatic primary key class for SQLite
  18
  19 =head1 SYNOPSIS
  20
  21   # In your table classes
  22   __PACKAGE__->load_components(qw/PK::Auto Core/);
  23   __PACKAGE__->set_primary_key('id');
  24
  25 =head1 DESCRIPTION
  26
  27 This class implements autoincrements for SQLite.
  28
  29 =head1 AUTHORS
  30
  31 Matt S. Trout <mst@shadowcatsystems.co.uk>
  32
  33 =head1 LICENSE
  34
  35 You may distribute this code under the same terms as Perl itself.
  36
  37 =cut