[Bast-commits] r3863 -
DBIx-Class/0.08/branches/oracle_sequence/lib/DBIx/Class/Storage/DBI
plu at dev.catalyst.perl.org
plu at dev.catalyst.perl.org
Wed Nov 7 17:20:32 GMT 2007
Author: plu
Date: 2007-11-07 17:20:31 +0000 (Wed, 07 Nov 2007)
New Revision: 3863
Modified:
DBIx-Class/0.08/branches/oracle_sequence/lib/DBIx/Class/Storage/DBI/Pg.pm
Log:
added code to fetch sequence nextval
Modified: DBIx-Class/0.08/branches/oracle_sequence/lib/DBIx/Class/Storage/DBI/Pg.pm
===================================================================
--- DBIx-Class/0.08/branches/oracle_sequence/lib/DBIx/Class/Storage/DBI/Pg.pm 2007-11-07 17:19:10 UTC (rev 3862)
+++ DBIx-Class/0.08/branches/oracle_sequence/lib/DBIx/Class/Storage/DBI/Pg.pm 2007-11-07 17:20:31 UTC (rev 3863)
@@ -73,6 +73,12 @@
}
}
+sub _sequence_fetch {
+ my ( $self, $type, $seq ) = @_;
+ my ($id) = $self->dbh->selectrow_array("SELECT nextval('${seq}')");
+ return $id;
+}
+
1;
=head1 NAME
More information about the Bast-commits
mailing list