Commit | Line | Data |
843f8ecd |
1 | package DBIx::Class::Storage::DBI::SQLite; |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
286f32b3 |
6 | use base qw/DBIx::Class::Storage::DBI::MultiDistinctEmulation/; |
843f8ecd |
7 | |
d4f16b21 |
8 | sub _dbh_last_insert_id { |
9 | my ($self, $dbh, $source, $col) = @_; |
10 | $dbh->func('last_insert_rowid'); |
843f8ecd |
11 | } |
12 | |
13 | 1; |
14 | |
75d07914 |
15 | =head1 NAME |
843f8ecd |
16 | |
17 | DBIx::Class::PK::Auto::SQLite - Automatic primary key class for SQLite |
18 | |
19 | =head1 SYNOPSIS |
20 | |
21 | # In your table classes |
77254782 |
22 | __PACKAGE__->load_components(qw/PK::Auto Core/); |
843f8ecd |
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 |