File Coverage

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

Criterion	Covered	Total	%
statement	46	46	100.0
branch	9	10	90.0
condition	2	3	66.6
subroutine	11	11	100.0
pod	0	5	0.0
total	68	75	90.6

package Log::Dispatch::Configurator::AppConfig;

use strict;
use vars qw($VERSION);
$VERSION = '1.00';

use Log::Dispatch::Configurator;
use base qw(Log::Dispatch::Configurator);
use AppConfig;

sub new {
    my($class, $file, $section) = @_;
    my $self = bless { section => ($section ? "${section}_" : '') }, $class;
    if(ref $file && $file->isa('AppConfig')){
	$self->{config} = $file;
    }else{
	$self->{file}   = $file;
    }
    $self->parse_file;
    return $self;
}

sub parse_file {
    my $self = shift;

    my $section = $self->{section};
    my $config;
    if($self->{config}){
	$config = $self->{config};
    }
    else{
	$config = AppConfig->new({
	CREATE => 1,
	GLOBAL => {
	    ARGCOUNT => AppConfig::ARGCOUNT_ONE(),
	},
    });
	$config->file($self->{file});
    }
    $config->define("${section}dispatchers" => { DEFAULT => '' })    unless $config->varlist("^${section}dispatchers\$");
    $config->define("${section}format"      => { DEFAULT => undef }) unless $config->varlist("^${section}format\$");

    $self->{_config} = $config;
}

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

sub _config { $_[0]->{_config} }

sub get_attrs_global {
    my $self = shift;
    my $section = $self->{section};
    return {
	format      => scalar $self->_config->get("${section}format"),
	dispatchers => [ split /\s+/, $self->_config->get("${section}dispatchers") ],
    };
}

sub get_attrs {
    my($self, $name) = @_;
    my $section = $self->{section};
    my $regex = "^$section$name" . '[\._]';
    my %var = $self->_config->varlist($regex);
    my %param = map {
        (my $key = $_) =~ s/$regex//;
        $key => $var{$_};
    } keys %var;
    return \%param;
}

1;
__END__