X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FPK%2FAuto.pm;h=26bd6df729e3788ee54825d4344079e85447df0f;hb=3334d204fcbbddedd73a7f63a285bdda9cb3e031;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..26bd6df 100644 --- a/lib/DBIx/Class/PK/Auto.pm +++ b/lib/DBIx/Class/PK/Auto.pm @@ -5,13 +5,15 @@ use base qw/DBIx::Class/; use strict; use warnings; +1; + =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 +21,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,23 +38,12 @@ 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; +The code that was handled here is now in ResultSource, and is being proxied to +Row as well. -=head1 AUTHORS +=head1 AUTHOR AND CONTRIBUTORS -Matt S. Trout +See L and L in DBIx::Class =head1 LICENSE