File Coverage

blib/lib/Mojo/mysql/Transaction.pm

Criterion	Covered	Total	%
statement	3	12	25.0
branch	0	4	0.0
condition	0	3	0.0
subroutine	1	4	25.0
pod	2	2	100.0
total	6	25	24.0

package Mojo::mysql::Transaction;
use Mojo::Base -base;

has 'db';

sub DESTROY {
  my $self = shift;
  if ($self->{rollback} && (my $dbh = $self->{dbh})) { $dbh->rollback }
}

sub commit {
  my $self = shift;
  $self->{dbh}->commit if delete $self->{rollback};
}

sub new {
  my $self = shift->SUPER::new(@_, rollback => 1);
  $self->{dbh} = $self->db->dbh;
  $self->{dbh}->begin_work;
  return $self;
}

1;

=encoding utf8

=head1 NAME

Mojo::mysql::Transaction - Transaction

=head1 SYNOPSIS

  use Mojo::mysql::Transaction;

  my $tx = Mojo::mysql::Transaction->new(db => $db);
  $tx->commit;

=head1 DESCRIPTION

L is a cope guard for L transactions used by
L.

=head1 ATTRIBUTES

L implements the following attributes.

=head2 db

  my $db = $tx->db;
  $tx    = $tx->db(Mojo::mysql::Database->new);

L object this transaction belongs to.

=head1 METHODS

L inherits all methods from L and
implements the following new ones.

=head2 commit

  $tx = $tx->commit;

Commit transaction.

=head2 new

  my $tx = Mojo::mysql::Transaction->new;

Construct a new L object.

=head1 SEE ALSO

L.

=cut