Select Code to Download

my $t = Transaction->new($dbh);
$t->transaction(sub {
...
        $sth->execute() or $t->rollback;
    }
});

transaction_select $dbh;
transaction {
...
        $sth->execute() or rollback;
    }
};