File Coverage

blib/lib/Config/Divide.pm

Criterion	Covered	Total	%
statement	50	51	98.0
branch	9	14	64.2
condition			n/a
subroutine	8	8	100.0
pod	1	2	50.0
total	68	75	90.6

package Config::Divide;
use strict;
use warnings;

use Carp;
use Config::Any;
use File::Spec;

our $VERSION = '0.036';

sub get_config_files {
    my ($class, $config_path) = @_;
    return if !$config_path;

    $config_path = File::Spec->rel2abs($config_path);
    my @config_files;

    opendir my $dh, $config_path or die "$config_path : $!";
    for my $file (grep !/^\.\.?/, readdir($dh)) {
        $file = "$config_path/$file";
        next if -z $file;
        push @config_files, $file;
    }
    closedir $dh;

    @config_files;
}

sub load_config {
    my $class = shift;
    my %opt;

    if (ref $_[0] eq 'ARRAY') {
        %opt = (config_paths => $_[0], config_any_options => $_[1]);
    }
    elsif (ref $_[0] eq 'HASH') {
        %opt = %{ $_[0] };
    }
    else {
        croak 'invalid args';
    }

    my (@config_files, @config_paths);
    push @config_files, $class->get_config_files($_)
        for @{$opt{config_paths}};

    my %config_any_options = (
        use_ext => 1,
    );

    %config_any_options = (%config_any_options, %{$opt{config_any_options}})
        if $opt{config_any_options};

    my $config = Config::Any->load_files(
        {
            files => \@config_files,
            %config_any_options,
        }
    );

    my %_config = map { %$_ } @$config;

    my %merged;
    for my $key (@config_files) {
        next if !$_config{$key};
        %merged = (%merged, %{$_config{$key}});
    }

    \%merged;
}

1;

__END__