File Coverage

blib/lib/MojoX/Log/Syslog.pm

Criterion	Covered	Total	%
statement	18	26	69.2
branch	0	4	0.0
condition	0	2	0.0
subroutine	6	7	85.7
pod	1	1	100.0
total	25	40	62.5

package MojoX::Log::Syslog;

use strict;
use warnings;
our $VERSION = '0.01';

use Mojo::Base 'Mojo::Log';
use File::Basename 'basename';
use Sys::Syslog qw(:DEFAULT setlogsock);
use Mojo::Util qw(encode);

has 'facility' => sub { 'USER' };
has 'ident'    => sub { basename($0) };
has 'logopt'   => sub { 'pid' };

sub append {
    my ($self, $msg) = @_;

    if (! $self->{log_opened}) {
        openlog($self->{ident}, $self->{logopt}, $self->{facility});
        $self->{log_opened} = 1;
    }

    my $this_level = $self->history ? $self->history->[-1]->[1] : 'debug'; # level
    my $syslog_levels = {
        debug   => 'debug',
        info    => 'info',
        warn    => 'warning',
        error   => 'err',
        fatal   => 'err', # FIX
    };
    my $level = $syslog_levels->{$this_level} || 'debug';

    return syslog($level, encode('UTF-8', $msg));
}

1;
__END__