sub do_transaction {
                my $class = shift;
                my ( $code ) = @_;
                # Turn off AutoCommit for this scope.
                # A commit will occur at the exit of this block automatically,
                # when the local AutoCommit goes out of scope.
                local $class->db_Main->{ AutoCommit };
                # Execute the required code inside the transaction.
                eval { $code->() };
                if ( $@ ) {
                        my $commit_error = $@;
                        eval { $class->dbi_rollback }; # might also die!
                        die $commit_error;
                }
        }

##</code><code>##

                local $class->db_Main->{ AutoCommit };

##</code><code>##

$dbh->{AutoCommit} = 0