File Coverage

blib/lib/SRS/EPP/Logging/SyslogAppender.pm

Criterion	Covered	Total	%
statement	9	17	52.9
branch	0	2	0.0
condition	0	3	0.0
subroutine	3	4	75.0
pod	0	1	0.0
total	12	27	44.4

package SRS::EPP::Logging::SyslogAppender;
{
  $SRS::EPP::Logging::SyslogAppender::VERSION = '0.22';
}

# A syslog appender class for log4perl that doesn't suck.

use Carp;
use strict;
use Log::Dispatch::Syslog;

sub new {
    my ($class, $appender_name, $data) = @_;
    my $stderr;

    my @param_names = qw/ident logopt facility socket min_level max_level/;
    my %params;

    foreach my $param (@param_names) {
        my $val = $data->{$param}{value} || $data->{ucfirst $param}{value};

        $params{$param} = $val if defined $val;
    }

    return Log::Log4perl::Appender->new("Log::Dispatch::Syslog",
        name      => $appender_name,
        ident     => '',
        %params,
    );
}

1;