File Coverage

blib/lib/Test/DBChanges/Role/DBI.pm

Criterion	Covered	Total	%
statement	9	18	50.0
branch			n/a
condition			n/a
subroutine	3	7	42.8
pod			n/a
total	12	25	48.0

package Test::DBChanges::Role::DBI;
use Moo::Role;
use Types::Standard qw(HasMethods);
use namespace::autoclean;

our $VERSION = '1.0.0'; # VERSION
# ABSTRACT: adapt DBChanges to DBI


has dbh => ( is => 'ro', required => 1, isa => HasMethods[qw(do selectall_arrayref)] );

sub _db_do {
    my ($self,$sql,@args) = @_;
    my $dbh = $self->dbh;
    # silence "NOTICE: the relation already exists"
    local $dbh->{PrintWarn} = 0;
    $dbh->do($sql,{},@args);
}

sub _db_fetch {
    my ($self,$sql,@args) = @_;
    return $self->dbh->selectall_arrayref($sql, { Slice => {} }, @args);
}

sub _table_and_factory_for_source {
    my ($self,$source_name) = @_;

    # source names are table names, and we don't transform the result
    # of _db_fetch
    return ( $source_name, sub { return @_ } );
}

1;

__END__