Select Code to Download

sub commit () {
    ($T || ${ caller() . '::T' })->commit;
...
    END_XACTION: die $@ . "commit not safe after errors, transaction r
+olled back"
        if $@;
}

sub commit {
    require Carp;
...
        Carp::croak($@ . "commit not safe after errors, transaction ro
+lled back");
    }
}