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
    or plan skip_all => $Test::mysqld::errstr;

{
    no warnings "redefine";
    sub t::Utils::setup {
        my ($class, $table) = @_;
        my $dbh = DBI->connect($mysql->dsn( dbname => "test" ));
        my $schema = t::Utils::_get_schema($dbh, $table);
        $schema =~ s/CREATE TABLE/CREATE TABLE IF NOT EXISTS/;
        $dbh->do($schema);
        $dbh;
    }
}

1;