File Coverage

blib/lib/Thunderhorse/Module/Logger.pm

Criterion	Covered	Total	%
statement	39	39	100.0
branch			n/a
condition			n/a
subroutine	9	9	100.0
pod	1	1	100.0
total	49	49	100.0

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

use Gears::X::Thunderhorse;
use Gears::Logger::Handler;

use Future::AsyncAwait;

extends 'Thunderhorse::Module';

has field 'logger' => (
	isa => InstanceOf ['Gears::Logger'],
	lazy => 1,
);

sub _build_logger ($self)
{
	my $config = $self->config;

	return Gears::Logger::Handler->new($config->%*);
}

sub build ($self)
{
	weaken $self;
	my $logger = $self->logger;

	$self->add_method(
		controller => log => sub ($controller, $level, @messages) {
			$logger->message($level, @messages);
			return $controller;
		}
	);

	$self->add_hook(
		error => sub ($controller, $ctx, $error) {
			$logger->message(error => $error);
		}
	);
}

__END__