File Coverage

blib/lib/Gears/Logger.pm

Criterion	Covered	Total	%
statement	26	32	81.2
branch	3	4	75.0
condition	2	3	66.6
subroutine	5	6	83.3
pod	1	1	100.0
total	37	46	80.4

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

use Data::Dumper;
use Time::Piece;

# apache format
has param 'date_format' => (
	isa => Str,
	default => '%a %b %d %T %Y'
);

# apache-like format
has param 'log_format' => (
	isa => Maybe [Str],
	default => '[%s] [%s] %s'
);

# implements actual logging of a single message
# must be reimplemented
sub _log_message ($self, $level, $message)
{
	...;
}

sub message ($self, $level, @messages)
{
	my $format = $self->log_format;
	my $date;

	for my $message (@messages) {
		$message = ref $message ? Dumper($message) : $message;
		chomp $message;

		if (defined $format) {
			$date //= localtime->strftime($self->date_format);
			$message = sprintf $format, $date, uc $level, $message;
		}

		$self->_log_message($level, $message);
	}

	return $self;
}

__END__