Commit | Line | Data |
---|---|---|
b8e1e21f | 1 | package DBIx::Class::PK::Auto; |
2 | ||
773e3015 | 3 | #use base qw/DBIx::Class::PK/; |
4 | use base qw/DBIx::Class/; | |
b8e1e21f | 5 | use strict; |
6 | use warnings; | |
7 | ||
89170201 | 8 | 1; |
9 | ||
75d07914 | 10 | =head1 NAME |
34d52be2 | 11 | |
eb49d4e3 | 12 | DBIx::Class::PK::Auto - Automatic primary key class |
34d52be2 | 13 | |
14 | =head1 SYNOPSIS | |
15 | ||
d88ecca6 | 16 | use base 'DBIx::Class::Core'; |
77254782 | 17 | __PACKAGE__->set_primary_key('id'); |
6718c5f0 | 18 | |
34d52be2 | 19 | =head1 DESCRIPTION |
20 | ||
eb49d4e3 | 21 | This class overrides the insert method to get automatically incremented primary |
22 | keys. | |
34d52be2 | 23 | |
9ea86671 | 24 | PK::Auto is now part of Core. |
f4ccda68 | 25 | |
e2441ae6 | 26 | See L<DBIx::Class::Manual::Component> for details of component interactions. |
7624b19f | 27 | |
c8f4b52b | 28 | =head1 LOGIC |
29 | ||
eb49d4e3 | 30 | C<PK::Auto> does this by letting the database assign the primary key field and |
31 | fetching the assigned value afterwards. | |
c8f4b52b | 32 | |
34d52be2 | 33 | =head1 METHODS |
34 | ||
130c6439 | 35 | =head2 insert |
34d52be2 | 36 | |
9ea86671 | 37 | The code that was handled here is now in Row for efficiency. |
b8e1e21f | 38 | |
130c6439 | 39 | =head2 sequence |
97cc0025 | 40 | |
89170201 | 41 | The code that was handled here is now in ResultSource, and is being proxied to |
42 | Row as well. | |
34d52be2 | 43 | |
0c11ad0e | 44 | =head1 AUTHOR AND CONTRIBUTORS |
34d52be2 | 45 | |
0c11ad0e | 46 | See L<AUTHOR|DBIx::Class/AUTHOR> and L<CONTRIBUTORS|DBIx::Class/CONTRIBUTORS> in DBIx::Class |
34d52be2 | 47 | |
48 | =head1 LICENSE | |
49 | ||
50 | You may distribute this code under the same terms as Perl itself. | |
51 | ||
52 | =cut |