File Coverage

blib/lib/CPAN/Packager/Config/Merger.pm

Criterion	Covered	Total	%
statement	21	39	53.8
branch	0	10	0.0
condition	0	9	0.0
subroutine	7	10	70.0
pod	0	1	0.0
total	28	69	40.5

package CPAN::Packager::Config::Merger;
use Mouse;
use YAML;
use CPAN::Packager::Config::Loader;
use List::Compare;
use CPAN::Packager::ListUtil qw(any);
use Hash::Merge qw(merge);
Hash::Merge::set_behavior('RIGHT_PRECEDENT');

sub merge_module_config {
    my ( $self, $modules, $config ) = @_;
    my $merged_modules = merge( $modules, $config->{modules} );
    $self->_filter_depends($merged_modules, $config);
    $config->{modules} = $merged_modules;
    $config;
}

sub _filter_depends {
    my ($self, $modules, $config) = @_;
   for my $module ( values %{$modules} ) {
        next unless $module->{module} && $module->{depends} && $module->{no_depends};
        next if ( $config->{global}->{no_depends} && any { $_->{module} eq $module } @{ $config->{global}->{no_depends} } );
        # FIXME: hmm.
        my @new_depends = List::Compare->new(
            [ map { ( ref $_ eq "HASH" ) ? $_->{module} : $_ } @{ $module->{depends} || () } ] ,
            [ map { $_->{module} } @{ $module->{no_depends} || () } ]
        )->get_unique;
        $module->{depends} = \@new_depends;
    }
}

no Mouse;
__PACKAGE__->meta->make_immutable;
1;

__END__