Commit | Line | Data |
b8e1e21f |
1 | package DBIx::Class::PK::Auto::SQLite; |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
126042ee |
6 | use base qw/DBIx::Class/; |
7 | |
8 | __PACKAGE__->load_components(qw/PK::Auto/); |
9 | |
10 | sub last_insert_id { |
66d9ef6b |
11 | return $_[0]->result_source->storage->dbh->func('last_insert_rowid'); |
b8e1e21f |
12 | } |
13 | |
14 | 1; |
34d52be2 |
15 | |
16 | =head1 NAME |
17 | |
18 | DBIx::Class::PK::Auto::SQLite - Automatic Primary Key class for SQLite |
19 | |
20 | =head1 SYNOPSIS |
21 | |
6718c5f0 |
22 | # In your table classes |
23 | __PACKAGE__->load_components(qw/PK::Auto::SQLite Core/); |
24 | __PACKAGE__->set_primary_key('id'); |
25 | |
34d52be2 |
26 | =head1 DESCRIPTION |
27 | |
28 | This class implements autoincrements for SQLite. |
29 | |
30 | =head1 AUTHORS |
31 | |
daec44b8 |
32 | Matt S. Trout <mst@shadowcatsystems.co.uk> |
34d52be2 |
33 | |
34 | =head1 LICENSE |
35 | |
36 | You may distribute this code under the same terms as Perl itself. |
37 | |
38 | =cut |
39 | |