X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FPK%2FAuto%2FDB2.pm;h=8c12ab24278adbb09ec1578e6dd0fe801909bd59;hb=260129d83a3f9906ad0ab75b728c7ca5b6ea2fd1;hp=0cfbcc1398567e4f9fe2c543b22da4d6656fe112;hpb=eb49d4e3edc9c959f22593a9f4d379c31ed78538;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/PK/Auto/DB2.pm b/lib/DBIx/Class/PK/Auto/DB2.pm index 0cfbcc1..8c12ab2 100644 --- a/lib/DBIx/Class/PK/Auto/DB2.pm +++ b/lib/DBIx/Class/PK/Auto/DB2.pm @@ -7,39 +7,19 @@ use base qw/DBIx::Class/; __PACKAGE__->load_components(qw/PK::Auto/); -sub last_insert_id -{ - my ($self) = @_; - - my $dbh = $self->result_source->storage->dbh; - my $sth = $dbh->prepare_cached("VALUES(IDENTITY_VAL_LOCAL())"); - $sth->execute(); - - my @res = $sth->fetchrow_array(); - - return @res ? $res[0] : undef; - -} - 1; -=head1 NAME +=head1 NAME -DBIx::Class::PK::Auto::DB2 - Automatic primary key class for DB2 +DBIx::Class::PK::Auto::DB2 - (DEPRECATED) Automatic primary key class for DB2 =head1 SYNOPSIS - # In your table classes - __PACKAGE__->load_components(qw/PK::Auto::DB2 Core/); - __PACKAGE__->set_primary_key('id'); - -=head1 DESCRIPTION - -This class implements autoincrements for DB2. +Just load PK::Auto instead; auto-inc is now handled by Storage. =head1 AUTHORS -Jess Robinson +Matt S Trout =head1 LICENSE