sub rollback {
    my $reason = shift // return;
    ...
}