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

use strict;
use warnings;
use Test::mysqld;
use Test::More;
use t::Utils;

my $mysql = Test::mysqld->new({
    my_cnf => {
        'skip-networking' => '',
    }
})
    or plan skip_all => $Test::mysqld::errstr;

{
    no warnings "redefine";
    sub t::Utils::setup_dbh {
        DBI->connect($mysql->dsn( dbname => "test" ), '','',{ RaiseError => 1, PrintError => 0, AutoCommit => 1 });
    }
}

1;