File Coverage

blib/lib/Log/Dispatch/Configurator/YAML.pm

Criterion	Covered	Total	%
statement	25	27	92.5
branch	1	2	50.0
condition			n/a
subroutine	8	9	88.8
pod	0	5	0.0
total	34	43	79.0

package Log::Dispatch::Configurator::YAML;
use base 'Log::Dispatch::Configurator';
use strict;
use warnings;

our $VERSION = '0.03';

use YAML ();


sub new {
    my($class, $file) = @_;
    my $self = bless { file => $file }, $class;
    $self->parse_file;
    return $self;
}


sub parse_file {
    my $self = shift;
    my $file = $self->{'file'};

    my $config = YAML::LoadFile($file);
    $self->{'_config'} = $config;
}


sub reload {
    my $self = shift;
    $self->parse_file;
}


sub get_attrs_global {
    my $self = shift;
    my $dispatchers
        = exists $self->{'_config'}->{'dispatchers'} ? $self->{'_config'}->{'dispatchers'} : [];
    return {
        format => undef,
        dispatchers => $dispatchers,
    };
}


sub get_attrs {
      my($self, $name) = @_;
      return $self->{'_config'}->{$name};
}



1;

__END__