view release on metacpan or  search on metacpan

lib/Test/mysqld/DatadirDumper.pm  view on Meta::CPAN

            datadir => $datadir,
        },
    ) or die $Test::mysqld::errstr;

    my $dsn = $mysqld->dsn;
    my $dbh = DBI->connect($dsn, '', '', {
        RaiseError          => 1,
        PrintError          => 0,
        ShowErrorStatement  => 1,
        AutoInactiveDestroy => 1,
        mysql_enable_utf8   => 1,
    });

    my $source = do {
        local $/;
        open my $fh, '<', $self->ddl_file or die $!;
        <$fh>
    };
    my @statements = map { "$_;" } grep { /\S+/ } split ';', $source;
    for my $statement (@statements) {
        $dbh->do($statement) or croak $dbh->errstr;