view release on metacpan or  search on metacpan

lib/DBIx/TransactionManager/Extended/Txn.pm  view on Meta::CPAN

package DBIx::TransactionManager::Extended::Txn;
use strict;
use warnings;

use DBIx::TransactionManager; ## XXX: it includes '::ScopeGuard' package

sub new {
    my ($class, $manager, %args) = @_;
    $args{caller} = [caller(1)] unless $args{caller};
    my $guard = DBIx::TransactionManager::ScopeGuard->new($manager => %args);
    return bless [$guard, $manager] => $class;
}

sub rollback { shift->[0]->rollback }
sub commit   { shift->[0]->commit }

sub context_data              { shift->[1]->context_data                  }
sub add_hook_after_commit     { shift->[1]->add_hook_after_commit(@_)     }
sub add_hook_before_commit    { shift->[1]->add_hook_before_commit(@_)    }
sub remove_hook_after_commit  { shift->[1]->remove_hook_after_commit(@_)  }
sub remove_hook_before_commit { shift->[1]->remove_hook_before_commit(@_) }