File Coverage

blib/lib/DBIx/TransactionManager/Extended/Txn.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	2	2	100.0
condition			n/a
subroutine	11	11	100.0
pod	5	8	62.5
total	38	41	92.6

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(@_) }

1;
__END__