File Coverage

blib/lib/Log/Any/Adapter/Journal.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod	0	2	0.0
total	27	29	93.1

package Log::Any::Adapter::Journal;

# ABSTRACT: Adapter for Log::Any that outputs with a priority prefix that systemd's journal can parse

use 5.010;
use strict;
use warnings;

use Log::Any::Adapter::Util qw(logging_methods numeric_level);
use parent 'Log::Any::Adapter::Screen';
use Class::Method::Modifiers;

our $VERSION = '0.13';

# sub init {
#     my ($self) = @_;
# }

# Journal doesn't recognize trace, use debug instead
sub trace    { shift->debug(@_) }
sub is_trace { shift->is_debug(@_) }

# For each of the logging methods exposed by Log::Any, add the level
# prefix in angled brackets.
for my $method ( grep { !/trace/ } logging_methods ) {
    my $level = numeric_level( $method );

    before $method => sub {
        $_[1] = "<$level>$_[1]" unless $_[0]->{use_color};
    };
}

# Log::Any levels       Journal levels
# 0 emergency           0 emerg
# 1 alert               1 alert
# 2 critical            2 crit
# 3 error               3 err
# 4 warning             4 warning
# 5 notice              5 notice
# 6 info                6 info
# 7 debug               7 debug
# 8 trace

1;

__END__