X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FPK%2FAuto.pm;h=b4d509cb3d4e0131ba07647178b11e101426a14d;hb=12e7015aa9372aeaf1aaa7e125b8ac8da216deb5;hp=04f211b0bcd5218c6e3f796dc14dc01fd935e90d;hpb=9ea866716b5ed90a493776f827ca1867c815d142;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/PK/Auto.pm b/lib/DBIx/Class/PK/Auto.pm index 04f211b..b4d509c 100644 --- a/lib/DBIx/Class/PK/Auto.pm +++ b/lib/DBIx/Class/PK/Auto.pm @@ -5,13 +5,17 @@ use base qw/DBIx::Class/; use strict; use warnings; +1; + +__END__ + =head1 NAME DBIx::Class::PK::Auto - Automatic primary key class =head1 SYNOPSIS -__PACKAGE__->load_components(qw/Core/); +use base 'DBIx::Class::Core'; __PACKAGE__->set_primary_key('id'); =head1 DESCRIPTION @@ -19,8 +23,6 @@ __PACKAGE__->set_primary_key('id'); This class overrides the insert method to get automatically incremented primary keys. - __PACKAGE__->load_components(qw/Core/); - PK::Auto is now part of Core. See L for details of component interactions. @@ -38,26 +40,16 @@ The code that was handled here is now in Row for efficiency. =head2 sequence -Manually define the correct sequence for your table, to avoid the overhead -associated with looking up the sequence automatically. - -=cut - -sub sequence { - my ($self,$seq) = @_; - foreach my $pri ($self->primary_columns) { - $self->column_info($pri)->{sequence} = $seq; - } -} - -1; - -=head1 AUTHORS +The code that was handled here is now in ResultSource, and is being proxied to +Row as well. -Matt S. Trout +=head1 FURTHER QUESTIONS? -=head1 LICENSE +Check the list of L. -You may distribute this code under the same terms as Perl itself. +=head1 COPYRIGHT AND LICENSE -=cut +This module is free software L +by the L. You can +redistribute it and/or modify it under the same terms as the +L.