File Coverage

blib/lib/Config/Any/Log4perl.pm

Criterion	Covered	Total	%
statement	29	35	82.8
branch	6	10	60.0
condition	2	2	100.0
subroutine	6	6	100.0
pod	2	2	100.0
total	45	55	81.8

#
# This file is part of Config-Any-Log4perl
#
# This software is copyright (c) 2012 by Loïc TROCHET.
#
# This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
#
package Config::Any::Log4perl;
{
  $Config::Any::Log4perl::VERSION = '0.130020';
}
# ABSTRACT: Config::Any loader for Log4perl config files

use strict;
use warnings;

use Config::Any::Base;
use parent qw(Config::Any::Base);


sub extensions
{
    return qw(log4perl);
}


sub load
{
    my $class = shift;
    my $file  = shift;
    my $args  = shift || {};

    open(FILE, $file) or die "Failed to open file <$file>: $!";
    my @lines  = ;

    return {} unless grep /\S/, @lines;

    my $config = {};

    while (@lines)
    {
        local $_ = shift @lines;
        s/^\s*#.*//;
        next unless /\S/;

        while (/(.+?)\\\s*$/)
        {
            my $prev = $1;
            my $next = shift @lines;
            $next =~ s/^ +//g;
            $next =~ s/^#.*//;
            $_ = $prev . $next;
            chomp;
        }

        if (my ($key, $val) = /(\S+?)\s*=\s*(.*)/)
        {
            $val =~ s/\s+$//;
            $config->{$key} = $val;
        }
    }

    return exists $args->{config_name} ? { $args->{config_name} => $config } : $config;
}

1;

__END__