From: Johannes Plunien <plu@cpan.org>
Date: Wed, 7 Nov 2007 17:20:31 +0000 (+0000)
Subject: added code to fetch sequence nextval
X-Git-Tag: v0.08240~533^2~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f04b283906814b568feb9bc14ed3d9905f625997;p=dbsrgits%2FDBIx-Class.git

added code to fetch sequence nextval
---

diff --git a/lib/DBIx/Class/Storage/DBI/Pg.pm b/lib/DBIx/Class/Storage/DBI/Pg.pm
index ea5f6f0..2373991 100644
--- a/lib/DBIx/Class/Storage/DBI/Pg.pm
+++ b/lib/DBIx/Class/Storage/DBI/Pg.pm
@@ -73,6 +73,12 @@ sub bind_attribute_by_data_type {
   }
 }
 
+sub _sequence_fetch {
+  my ( $self, $type, $seq ) = @_;
+  my ($id) = $self->dbh->selectrow_array("SELECT nextval('${seq}')");
+  return $id;
+}
+
 1;
 
 =head1 NAME