X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FPK%2FAuto.pm;h=e2f717f677b64612bec4422c136ad7c8e90af18e;hb=d88ecca6486a2b1c4b6e2f0440165b186aab39bc;hp=5bf069a17f9f4e5fffd4af3f490674a8388a9499;hpb=ca48cd7ddaf84b1e9a37c975321f96f2e65e8198;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/PK/Auto.pm b/lib/DBIx/Class/PK/Auto.pm index 5bf069a..e2f717f 100644 --- a/lib/DBIx/Class/PK/Auto.pm +++ b/lib/DBIx/Class/PK/Auto.pm @@ -5,35 +5,23 @@ use base qw/DBIx::Class/; use strict; use warnings; -=head1 NAME +=head1 NAME DBIx::Class::PK::Auto - Automatic primary key class =head1 SYNOPSIS - # In your table classes (replace PK::Auto::SQLite with your database) - __PACKAGE__->load_components(qw/PK::Auto::SQLite Core/); - __PACKAGE__->set_primary_key('id'); +use base 'DBIx::Class::Core'; +__PACKAGE__->set_primary_key('id'); =head1 DESCRIPTION This class overrides the insert method to get automatically incremented primary keys. -You don't want to be using this directly - instead load the appropriate one for -your database, e.g. C, in your table classes: +PK::Auto is now part of Core. - __PACKAGE__->load_components(qw/PK::Auto::SQLite Core/); - -Note that C is specified as the leftmost argument. - -Alternatively, you can load the components separately: - - __PACKAGE__->load_components(qw/Core/); - __PACKAGE__->load_components(qw/PK::Auto::SQLite/); - -This can be used, for example, if you have different databases and need to -determine the appropriate C class at runtime. +See L for details of component interactions. =head1 LOGIC @@ -44,26 +32,7 @@ fetching the assigned value afterwards. =head2 insert -Overrides C so that it will get the value of autoincremented primary -keys. - -=cut - -sub insert { - my ($self, @rest) = @_; - my $ret = $self->next::method(@rest); - - my ($pri, $too_many) = grep { !defined $self->get_column($_) } $self->primary_columns; - return $ret unless defined $pri; # if all primaries are already populated, skip auto-inc - $self->throw_exception( "More than one possible key found for auto-inc on ".ref $self ) - if defined $too_many; - - my $id = $self->result_source->storage->last_insert_id($self->result_source,$pri); - $self->throw_exception( "Can't get last insert id" ) unless $id; - $self->store_column($pri => $id); - - return $ret; -} +The code that was handled here is now in Row for efficiency. =head2 sequence @@ -72,7 +41,12 @@ associated with looking up the sequence automatically. =cut -__PACKAGE__->mk_classdata('sequence'); +sub sequence { + my ($self,$seq) = @_; + foreach my $pri ($self->primary_columns) { + $self->column_info($pri)->{sequence} = $seq; + } +} 1;