File Coverage

blib/lib/Kelp/Module/Config/ConfigGeneral.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	5	6	83.3
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	35	36	97.2

package Kelp::Module::Config::ConfigGeneral;
use strict;
use 5.008_005;
use Kelp::Base 'Kelp::Module::Config';
use Config::General;

our $VERSION = '0.01';

attr ext => 'conf';

sub load {
    my ( $self, $filename ) = @_;

    my $conf = Config::General->new(
        -ConfigFile      => $filename,
        -ForceArray      => 1,
        -IncludeAgain    => 1,
        -InterPolateVars => 1,
    );
    my %config = $conf->getall;

    # Hack for using default Log::Dispatch
    if ( exists $config{modules_init}{Logger} ) {
        my $outputs = $config{modules_init}{Logger}{outputs};

        my @outputs = map {
            my ( $k, $v ) = ($_, $outputs->{$_});
            my @res;
            push @res, ( ref $v eq 'ARRAY' ) ? map { [ $k, %$_ ] } @$v
                     : ( ref $v eq 'HASH'  ) ? [ $k, %$v ]
                     :                         [];
            @res;
        } keys %$outputs;
        $config{modules_init}{Logger}{outputs} = \@outputs;
    }

    return \%config;
}

1;
__END__