File Coverage

blib/lib/Test/mysqld/DatadirDumper.pm

Criterion	Covered	Total	%
statement	22	24	91.6
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod			n/a
total	30	32	93.7

package Test::mysqld::DatadirDumper;
use 5.008001;
use strict;
use warnings;

our $VERSION = "0.01";

use Carp qw/croak/;
use DBI;
use DBIx::FixtureLoader;
use File::Spec;
use Test::mysqld;

use Class::Accessor::Lite (
    new => 1,
    ro  => [qw/ddl_file datadir fixtures/],
);

sub dump {
    my $self = shift;

    my $datadir = $self->datadir;
    unless ( File::Spec->file_name_is_absolute($datadir) ) {
        $datadir = File::Spec->rel2abs($datadir),
    }

    my $mysqld = Test::mysqld->new(
        my_cnf   => {
            'skip-networking' => '',
            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;
    }

    if (my @fixtures = @{ $self->fixtures || [] }) {
        my $loader = DBIx::FixtureLoader->new(dbh => $dbh);
        $loader->load_fixture($_) for @fixtures;
    }
}

1;
__END__