File Coverage

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

Criterion	Covered	Total	%
statement	14	22	63.6
branch			n/a
condition			n/a
subroutine	5	7	71.4
pod			n/a
total	19	29	65.5

package Test::DBChanges::Role::Base;
use Moo::Role;
use 5.024;
use Types::Standard qw(ArrayRef Str);
use Test::DBChanges::ChangeSet;
use namespace::autoclean;

our $VERSION = '1.0.1'; # VERSION
# ABSTRACT: base role for all DBChanges classes


has source_names => ( is => 'ro', required => 1, isa => ArrayRef[Str] );

has _table_source_map => (
    is => 'lazy',
    builder => sub {
        my ($self) = @_;

        my %table_source_map = map {
            my $source_name = $_;
            my ($table_name, $factory) = $self->_table_and_factory_for_source($source_name);
            ( $table_name => { name => $source_name, factory => $factory } );
        } $self->source_names->@*;

        return \%table_source_map;
    },
);

requires qw(_table_and_factory_for_source changeset_for_code);

sub _make_changeset {
    my ($self,$raw_changes) = @_;

    return Test::DBChanges::ChangeSet->new({
        table_source_map => $self->_table_source_map,
        raw_changes => $raw_changes,
    });
}

1;

__END__