view release on metacpan or  search on metacpan

t/Util.pm  view on Meta::CPAN

        $mysqld = bless $obj, 'Test::mysqld';
    }
    else {
        $mysqld = Test::mysqld->new(my_cnf => {
            'skip-networking' => '',
        }) or return;
    }
    return $mysqld;
}

sub capture(&) {
    my ($code) = @_;

    my @logs;
    my $tracer = DBIx::Tracer->new(sub {
        my %args = @_;
        push @logs, \%args;
    });

    $code->();