Merge 0.09's savepoint branch

[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / Storage / DBI / Pg.pm

diff --git a/lib/DBIx/Class/Storage/DBI/Pg.pm b/lib/DBIx/Class/Storage/DBI/Pg.pm
index a2d7f1e..fdf308e 100644 (file)
--- a/lib/DBIx/Class/Storage/DBI/Pg.pm
+++ b/lib/DBIx/Class/Storage/DBI/Pg.pm
@@ -79,6 +79,24 @@ sub _sequence_fetch {
   return $id;
 }
 
+sub _svp_begin {
+    my ($self, $dbh, $name) = @_;
+
+    $dbh->pg_savepoint($name);
+}
+
+sub _svp_release {
+    my ($self, $dbh, $name) = @_;
+
+    $dbh->pg_release($name;)
+}
+
+sub _svp_rollback {
+    my ($self, $dbh, $name) = @_;
+
+    $dbh->pg_rollback_to($name);
+}
+
 1;
 
 =head1 NAME