1 package DBIx::Class::PK::Auto;
3 #use base qw/DBIx::Class::PK/;
4 use base qw/DBIx::Class/;
10 DBIx::Class::PK::Auto - Automatic primary key class
14 __PACKAGE__->load_components(qw/PK::Auto Core/);
15 __PACKAGE__->set_primary_key('id');
19 This class overrides the insert method to get automatically incremented primary
22 __PACKAGE__->load_components(qw/PK::Auto Core/);
24 Note that C<PK::Auto> is specified as the leftmost argument.
28 C<PK::Auto> does this by letting the database assign the primary key field and
29 fetching the assigned value afterwards.
35 Overrides C<insert> so that it will get the value of autoincremented primary
41 my ($self, @rest) = @_;
42 my $ret = $self->next::method(@rest);
44 my ($pri, $too_many) = grep { !defined $self->get_column($_) } $self->primary_columns;
45 return $ret unless defined $pri; # if all primaries are already populated, skip auto-inc
46 $self->throw_exception( "More than one possible key found for auto-inc on ".ref $self )
49 my $storage = $self->result_source->storage;
50 $self->throw_exception( "Missing primary key but Storage doesn't support last_insert_id" ) unless $storage->can('last_insert_id');
51 my $id = $storage->last_insert_id($self->result_source,$pri);
52 $self->throw_exception( "Can't get last insert id" ) unless $id;
53 $self->store_column($pri => $id);
60 Manually define the correct sequence for your table, to avoid the overhead
61 associated with looking up the sequence automatically.
67 foreach my $pri ($self->primary_columns) {
68 $self->column_info($pri)->{sequence} = $seq;
76 Matt S. Trout <mst@shadowcatsystems.co.uk>
80 You may distribute this code under the same terms as Perl itself.