File Coverage

blib/lib/File/KDBX/Transaction.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch	5	8	62.5
condition	1	2	50.0
subroutine	10	10	100.0
pod	4	4	100.0
total	54	58	93.1

package File::KDBX::Transaction;
# ABSTRACT: Make multiple database edits atomically

use warnings;
use strict;

use Devel::GlobalDestruction;
use File::KDBX::Util qw(:class);
use namespace::clean;

our $VERSION = '0.906'; # VERSION


sub new {
    my $class   = shift;
    my $object  = shift;
    $object->begin_work(@_);
    return bless {object => $object}, $class;
}

sub DESTROY { !in_global_destruction and $_[0]->rollback }


has 'object', is => 'ro';


sub commit {
    my $self = shift;
    return if $self->{done};

    my $obj = $self->object;
    $obj->commit;
    $self->{done} = 1;
    return $obj;
}


sub rollback {
    my $self = shift;
    return if $self->{done};

    my $obj = $self->object;
    $obj->rollback;
    $self->{done} = 1;
    return $obj;
}

1;

__END__