1 package DBIx::Class::PK::Auto::Pg;
6 use base qw/DBIx::Class/;
8 __PACKAGE__->load_components(qw/PK::Auto/);
12 $self->get_autoinc_seq unless $self->{_autoinc_seq};
13 $self->storage->dbh->last_insert_id(undef,undef,undef,undef,
14 {sequence=>$self->{_autoinc_seq}});
20 # return the user-defined sequence if known
21 return $self->sequence if ($self->sequence);
23 my $dbh= $self->storage->dbh;
24 my $sth = $dbh->column_info( undef, undef, $self->_table_name, '%');
25 while (my $foo = $sth->fetchrow_arrayref){
26 if(defined $foo->[12] && $foo->[12] =~ /^nextval/) {
27 ($self->{_autoinc_seq}) = $foo->[12] =~
28 m!^nextval\('"?([^"']+)"?'::text\)!;
37 DBIx::Class::PK::Auto::Pg- Automatic Primary Key class for Postgresql
43 This class implements autoincrements for Postgresql.
47 Marcus Ramberg <m.ramberg@cpan.org>
51 You may distribute this code under the same terms as Perl itself.