X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FStorage%2FTxnScopeGuard.pm;h=1c2a0709980970e06d7c844afba6b696b740414d;hb=e8fcf76f98ebd3cc99638765220d0024380bdd02;hp=ca7cad7418eb1dc0854150a182a619de6d1b61fb;hpb=a211cb63c765b996706779e04685f982c4c5eb81;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/Storage/TxnScopeGuard.pm b/lib/DBIx/Class/Storage/TxnScopeGuard.pm index ca7cad7..1c2a070 100644 --- a/lib/DBIx/Class/Storage/TxnScopeGuard.pm +++ b/lib/DBIx/Class/Storage/TxnScopeGuard.pm @@ -1,8 +1,8 @@ -package # Hide from pause for now - till we get it working - DBIx::Class::Storage::TxnScopeGuard; +package DBIx::Class::Storage::TxnScopeGuard; use strict; use warnings; +use Carp (); sub new { my ($class, $storage) = @_; @@ -47,7 +47,7 @@ __END__ =head1 NAME -DBIx::Class::Storage::TxnScopeGuard - Experimental +DBIx::Class::Storage::TxnScopeGuard - Scope-based transaction handling =head1 SYNOPSIS @@ -70,14 +70,15 @@ right thing with transactions in DBIx::Class. =head2 new -Creating an instance of this class will start a new transaction. Expects a +Creating an instance of this class will start a new transaction (by +implicitly calling L. Expects a L object as its only argument. =head2 commit Commit the transaction, and stop guarding the scope. If this method is not -called (i.e. an exception is thrown) and this object goes out of scope then -the transaction is rolled back. +called and this object goes out of scope (i.e. an exception is thrown) then +the transaction is rolled back, via L =cut