File Coverage

blib/lib/DBIx/Roles/Transaction.pm

Criterion	Covered	Total	%
statement	22	24	91.6
branch	6	8	75.0
condition			n/a
subroutine	6	6	100.0
pod	0	4	0.0
total	34	42	80.9

# $Id: Transaction.pm,v 1.3 2005/12/02 10:43:09 dk Exp $

package DBIx::Roles::Transaction;

# Allows nested begin_work/rollback/commit calls

use strict;
use vars qw(%defaults $VERSION);

$VERSION = '1.00';

sub initialize
{
	return {
		counter => 0,
		ok      => 1,
	};
}

sub begin_work
{
	my ( $self, $storage) = @_;
	return ( $storage->{counter}++) ? 1 : $self-> super;
}

sub rollback
{
	my ( $self, $storage) = @_;

	$storage->{counter}--;

	if ( $storage->{counter} > 0) {
		my $ok = $storage->{ok};
		$storage->{ok} = 0;
		return $ok;
	} else {
		$storage->{ok} = 1;
		return $self-> super;
	}
}

sub commit
{
	my ( $self, $storage) = @_;

	$storage->{counter}--;

	if ( $storage->{counter} > 0) {
		return $storage->{ok};
	} elsif ( $storage-> {ok}) {
		return $self-> super;
	} else {
		$storage->{ok} = 1;
		return $self-> rollback;
	}
}

1;

__DATA__