File Coverage

blib/lib/Acrux/DBI/Tx.pm

Criterion	Covered	Total	%
statement	6	18	33.3
branch	0	8	0.0
condition	0	5	0.0
subroutine	2	5	40.0
pod	2	2	100.0
total	10	38	26.3

package Acrux::DBI::Tx;
use strict;
use utf8;

=encoding utf8

=head1 NAME

Acrux::DBI::Tx - Transaction

=head1 SYNOPSIS

    use Acrux::DBI::Tx;

    my $tx = Acrux::DBI::Tx->new( dbi => $dbi );
    # . . .
    $tx->commit;

=head1 DESCRIPTION

This is a scope guard for L transactions

=head1 ATTRIBUTES

This class implements the following attributes

=head2 dbi

    dbi => $dbi

The object this transaction belongs to. Note that this attribute is weakened

=head1 METHODS

This class implements the following methods

=head2 commit

    $tx->commit;

Commit transaction.

=head2 new

    my $tx = Acrux::DBI::Tx->new( dbi => $dbi );
    my $tx = Acrux::DBI::Tx->new( { dbi => $dbi } );

Construct a new transaction object

=head1 HISTORY

See C file

=head1 TO DO

See C file

=head1 SEE ALSO

L, L

=head1 AUTHOR

Serż Minus (Sergey Lepenkov) L [e-mail]

=head1 COPYRIGHT

Copyright (C) 1998-2026 D&D Corporation

=head1 LICENSE

This program is distributed under the terms of the Artistic License Version 2.0

See the C file or L for details

=cut

sub new {
    my $class = shift;
    my $args = scalar(@_) ? scalar(@_) > 1 ? {@_} : {%{$_[0]}} : {};
    my $self  = bless {
            dbi         => $args->{dbi},
            rollback    => $args->{rollback} // 1,
        }, $class;
    $self->{dbi}->begin;
    return $self;
}
sub commit {
    my $self = shift;
    $self->{dbi}->commit if $self->{rollback};
    $self->{rollback} = 0;
}
sub DESTROY {
    my $self = shift;
    if ($self->{rollback} && (my $dbi = $self->{dbi})) { $dbi->rollback }
}

1;

__END__