File Coverage

blib/lib/Sledge/Config/YAML.pm

Criterion	Covered	Total	%
statement	15	39	38.4
branch	0	12	0.0
condition			n/a
subroutine	5	7	71.4
pod	1	1	100.0
total	21	59	35.5

package Sledge::Config::YAML;

use strict;
use warnings;
use base qw(Sledge::Config);

our $VERSION = '0.09';

use YAML::Syck;
use File::Slurp;

sub new {
    my $class       = shift;
    my $config_name = shift;
    my $config_file = shift;

    my $config_base;
    if ($config_name =~ /^([^_]+)_/) {
        $config_base = $1;
    }

    my $config_data = read_file($config_file);
    $config_data =~ s{__ENV:(.+?)__}{ $ENV{$1}||'' }ge;
    my $conf = $class->_load($config_data);

    my %config;
    if ($config_base) {
        %config = (
            %{$conf->{common}},
            %{$conf->{$config_base}},
            $conf->{$config_name} ? %{$conf->{$config_name}} : (),
        );
    } else {
        %config = (
            %{$conf->{common}},
            $conf->{$config_name} ? %{$conf->{$config_name}} : (),
        );
    }

    # case sensitive hash
    %config = map { lc($_) => $config{$_} } keys %config
        unless $class->case_sensitive;

    bless \%config, $class;
}

sub _load {
    my ($self, $config_data) = @_;

    return YAML::Syck::Load( $config_data );
}

1;
__END__