File Coverage

blib/lib/JLogger/Config.pm

Criterion	Covered	Total	%
statement	39	47	82.9
branch	10	14	71.4
condition			n/a
subroutine	10	11	90.9
pod	0	3	0.0
total	59	75	78.6

package JLogger::Config;

use strict;
use warnings;

use YAML();

sub new {
    bless {}, shift;
}

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

    my $config = YAML::Load($config_text);

    $self->_fix_element($config, 'transport');
    $self->_fix_elements($config, 'storages');
    $self->_fix_elements_recursive($config, 'filters');
    use Data::Dumper; warn Dumper $config;

    $config;
}

sub load_file {
    my ($self, $config_file) = @_;

    open my $fh, '<:encoding(UTF-8)', $config_file,
        or die qq(Can't open "$config_file": $!);

    my $config_text = do {
        local $/;
        <$fh>;
    };

    close $fh;

    $self->load($config_text);
}

sub _fix_element {
    my ($self, $config, $element_key) = @_;

    $config->{$element_key} =
      $self->_fix_element_value($config->{$element_key})
      if exists $config->{$element_key};
}

sub _fix_elements {
    my ($self, $config, $elements_key) = @_;

    if (exists $config->{$elements_key}) {
        $_ = $self->_fix_element_value($_) for @{$config->{$elements_key}};
    }
}

sub _fix_elements_recursive {
    my ($self, $config, $elements_key) = @_;

    my $ref = ref $config;

    if ($ref eq 'HASH') {
        $self->_fix_elements($config, $elements_key);

        foreach my $child (values %$config) {
            $self->_fix_elements_recursive($child, $elements_key);
        }
    } elsif ($ref eq 'ARRAY') {
        foreach my $child (@$config) {
            $self->_fix_elements_recursive($child, $elements_key);
        }
    }
}

sub _fix_element_value {
    my ($self, $element) = @_;

    my $ref = ref $element;
    if ($ref eq '') {
        return [$element];
    }
    elsif ($ref eq 'HASH') {
        return [%$element];
    }

    $element;
}

1;