File Coverage

blib/lib/Hook/Modular/ConfigLoader.pm

Criterion	Covered	Total	%
statement	40	66	60.6
branch	8	30	26.6
condition	9	18	50.0
subroutine	12	12	100.0
pod	4	4	100.0
total	73	130	56.1

use 5.008;
use strict;
use warnings;

package Hook::Modular::ConfigLoader;
BEGIN {
  $Hook::Modular::ConfigLoader::VERSION = '1.101050';
}
# ABSTRACT: Configuration loader for Hook::Modular
use Carp;
use Hook::Modular::Walker;
use YAML;
use Storable;

sub new {
    my $class = shift;
    bless {}, $class;
}

sub load {
    my ($self, $stuff, $context) = @_;
    my $config;
    if (   (!ref($stuff) && $stuff eq '-')
        || (-e $stuff && -r _)) {
        $config = YAML::LoadFile($stuff);
        $context->{config_path} = $stuff if $context;
    } elsif (ref($stuff) && ref $stuff eq 'SCALAR') {
        $config = YAML::Load(${$stuff});
    } elsif (ref($stuff) && ref $stuff eq 'HASH') {
        $config = Storable::dclone($stuff);
    } else {
        croak "Hook::Modular::ConfigLoader->load: $stuff: $!";
    }
    unless ($config->{global} && $config->{global}->{no_decode_utf8}) {
        Hook::Modular::Walker->decode_utf8($config);
    }
    return $config;
}

sub load_include {
    my ($self, $config) = @_;
    my $includes = $config->{include} or return;
    $includes = [$includes] unless ref $includes;
    for my $file (@$includes) {
        my $include = YAML::LoadFile($file);
        for my $key (keys %{$include}) {
            my $add = $include->{$key};
            unless ($config->{$key}) {
                $config->{$key} = $add;
                next;
            }
            if (ref $config->{$key} eq 'HASH') {
                next unless ref $add eq 'HASH';
                for (keys %{ $include->{$key} }) {
                    $config->{$key}->{$_} = $include->{$key}->{$_};
                }
            } elsif (ref $include->{$key} eq 'ARRAY') {
                $add = [$add] unless ref $add eq 'ARRAY';
                push(@{ $config->{$key} }, @{ $include->{$key} });
            } elsif ($add) {
                $config->{$key} = $add;
            }
        }
    }
}

sub load_recipes {
    my ($self, $config) = @_;
    for (@{ $config->{recipes} }) {
        $self->error("no such recipe to $_")
          unless $config->{define_recipes}->{$_};
        my $plugin = $config->{define_recipes}->{$_};
        $plugin = [$plugin] unless ref $plugin eq 'ARRAY';
        push(@{ $config->{plugins} }, @{$plugin});
    }
}
1;


__END__