File Coverage

blib/lib/FusionInventory/Agent/Logger/Syslog.pm

Criterion	Covered	Total	%
statement	12	22	54.5
branch			n/a
condition			n/a
subroutine	4	7	57.1
pod	2	2	100.0
total	18	31	58.0

package FusionInventory::Agent::Logger::Syslog;

use strict;
use warnings;
use base 'FusionInventory::Agent::Logger::Backend';

use Sys::Syslog qw(:standard :macros);

my %syslog_levels = (
    error   => LOG_ERR,
    warning => LOG_WARNING,
    info    => LOG_INFO,
    debug   => LOG_DEBUG,
    debu2   => LOG_DEBUG
);

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

    my $self = {};
    bless $self, $class;

    openlog("fusinv-agent", 'cons,pid', $params{config}->{logfacility});

    return $self;
}

sub addMessage {
    my ($self, %params) = @_;

    my $level = $params{level};
    my $message = $params{message};

    syslog($syslog_levels{$level}, $message);
}

sub DESTROY {
    closelog();
}

1;
__END__