File Coverage

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

Criterion	Covered	Total	%
statement	22	23	95.6
branch	2	4	50.0
condition			n/a
subroutine	8	9	88.8
pod	0	5	0.0
total	32	41	78.0

package Log::Dispatch::Configurator::Perl;
use strict;
use warnings;
use Carp qw/croak/;
use parent 'Log::Dispatch::Configurator';

our $VERSION = '0.0132';

sub new {
    my ($class, $file) = @_;

    my $self = bless { file => $file }, $class;
    $self->exec_file;
    return $self;
}


sub exec_file {
    my $self = shift;

    my $config = do $self->{file}
                    or croak "could not load conf file: $self->{file}";
    $self->{'_config'} = $config;
}


sub reload {
    $_[0]->exec_file;
}


sub get_attrs_global {
    my $self = shift;

    +{
        format      => undef,
        dispatchers => (exists $self->{'_config'}{'dispatchers'})
                            ? $self->{'_config'}{'dispatchers'} : [],
    };
}


sub get_attrs {
      $_[0]->{'_config'}{$_[1]};
}

1;

__END__