File Coverage

blib/lib/App/Rad/Plugin/ConfigLoader.pm

Criterion	Covered	Total	%
statement	9	19	47.3
branch			n/a
condition			n/a
subroutine	3	4	75.0
pod	1	1	100.0
total	13	24	54.1

package App::Rad::Plugin::ConfigLoader;
use strict;
use warnings;

use Config::Any;

our $VERSION = '0.01';

sub load_config {
    my ($c, @filepaths) = (@_);

    my $cfg = Config::Any->load_files({
                                'files' => \@filepaths,
                                'use_ext' => 1
                           });
    foreach ( @{$cfg} ) {
        my ($filename, $config) = %{$_};
        $c->debug("loaded configuration from file '$filename'.");

        # I could just fiddle with the internals to make this
        # a little quicker, but let's stick to the API :)
        foreach my $key (keys %{$config}) {
            $c->config->{$key} = $config->{$key};
        }
    }
}

42;
__END__