File Coverage

blib/lib/Mojo/SQLite/Transaction.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	6	8	75.0
condition	2	3	66.6
subroutine	5	5	100.0
pod	2	2	100.0
total	33	36	91.6

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

use Carp 'croak';

our $VERSION = '3.009';

has db => undef, weak => 1;

my %behaviors = map { ($_ => 1) } qw(deferred immediate exclusive);

sub new {
  my $self = shift->SUPER::new(@_, rollback => 1);
  my $dbh = $self->{dbh} = $self->db->dbh;
  if (my $behavior = $self->{behavior}) {
    croak qq{Invalid transaction behavior $behavior} unless exists $behaviors{lc $behavior};
    $dbh->do("begin $behavior transaction");
  } else {
    $dbh->begin_work;
  }
  return $self;
}

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};
}

1;

=head1 NAME

Mojo::SQLite::Transaction - Transaction

=head1 SYNOPSIS

  use Mojo::SQLite::Transaction;

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

=head1 DESCRIPTION

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

=head1 ATTRIBUTES

L implements the following attributes.

=head2 db

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

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

=head1 METHODS

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

=head2 new

  my $tx = Mojo::SQLite::Transaction->new;
  my $tx = Mojo::SQLite::Transaction->new(db => Mojo::SQLite::Database->new);
  my $tx = Mojo::SQLite::Transaction->new({db => Mojo::SQLite::Database->new});

Construct a new L object.

=head2 commit

  $tx->commit;

Commit transaction.

=head1 BUGS

Report any issues on the public bugtracker.

=head1 AUTHOR

Dan Book, C

=head1 COPYRIGHT AND LICENSE

Copyright 2015, Dan Book.

This library is free software; you may redistribute it and/or modify it under
the terms of the Artistic License version 2.0.

=head1 SEE ALSO

L