[Bast-commits] r3863 - DBIx-Class/0.08/branches/oracle_sequence/lib/DBIx/Class/Storage/DBI

[plu at dev.catalyst.perl.org]

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