The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package URT::Test;

use strict;
use warnings;

use Exporter 'import';
our @EXPORT_OK = qw(txtest);

use base 'Test::Builder::Module';

sub txtest {
    my ($name, $subtests, @args) = @_;
    my $tb = __PACKAGE__->builder;
    my $tx = UR::Context::Transaction->begin();
    my $rv = $tb->subtest($name, $subtests, @args);
    $tx->rollback;
    return $rv;
};

1;