File Coverage

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

Criterion	Covered	Total	%
statement	15	33	45.4
branch	0	4	0.0
condition			n/a
subroutine	5	6	83.3
pod	0	1	0.0
total	20	44	45.4

package CPAN::Packager::Config::Loader;
use Mouse;
use YAML;
use Encode;
use CPAN::Packager::Config::Validator;

sub load {
    my ($self,$filename) = @_;
    my $config = YAML::LoadFile($filename);
    CPAN::Packager::Config::Validator->validate($config);

    # FIXME: refactor it.

    if ( $config->{global}->{fix_module_name} ) {
        my $fix_module_map = {};
        my $fix_module_name = $config->{global}->{fix_module_name};
        for my $conf ( @{ $fix_module_name } ) {
            $fix_module_map->{ $conf->{from} } = $conf->{to};
        }

        $config->{global}->{fix_module_name} = $fix_module_map;
    }

    # change array to hash for speed.
    if ( $config->{modules} ) {
        my $modules = $config->{modules};
        my $module_of = {};
        for my $mod ( @{ $modules } ) {
            $module_of->{$mod->{module}} = $mod;
        }
        $config->{modules} = $module_of;
    }

    $config;
}

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

__END__