File Coverage

blib/lib/Gears/Logger/Handler.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	2	4	50.0
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	37	39	94.8

package Gears::Logger::Handler;
$Gears::Logger::Handler::VERSION = '0.102';
use v5.40;
use Mooish::Base -standard;

use Gears::X::Logger;
use Log::Handler;

extends 'Gears::Logger';

has param 'outputs' => (
	isa => ArrayRef,
);

has field 'handler' => (
	lazy => 1,
);

sub _build_handler ($self)
{
	my @conf = $self->outputs->@*;
	if (defined $self->log_format) {
		for my $conf_key (grep { $_ % 2 } keys @conf) {
			my $name = $conf[$conf_key - 1];
			my $conf = $conf[$conf_key];

			Gears::X::Logger->raise("both message_layout and logger's log_format specified for '$name'")
				if exists $conf->{message_layout};

			$conf->{message_layout} = '%m%N';
		}
	}

	return Log::Handler->new(@conf);
}

sub _log_message ($self, $level, $message)
{
	$self->handler->log($level, $message);
}