view release on metacpan or  search on metacpan

t/01-artist.t  view on Meta::CPAN

       remote_addr  varchar(255),
       remote_user  varchar(255),
       request_uri  varchar(255),
       command      varchar(255)
) ');

$ENV{REMOTE_USER} = 'jennifer_lopez123';
$ENV{REQUEST_URI}  = '/register';
$ENV{REMOTE_ADDR} = '000.000.000';

sub do_transaction(&) {
    my $sub = shift;
    Artist->db_Main->begin_work;
    $sub->();
    Artist->db_Main->commit;
}

my $id;
do_transaction {
    my $artist = Artist->create_test_artist;
    ok +$artist, "Create a test artist";