File Coverage

blib/lib/Mojar/Log.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	3	4	75.0
condition	2	6	33.3
subroutine	7	7	100.0
pod			n/a
total	33	38	86.8

package Mojar::Log;
use Mojo::Base 'Mojo::Log';

our $VERSION = 1.002;

use Mojo::Util 'encode';
use POSIX 'strftime';

sub import {
  my $pkg = shift;
  # Mixin
  if (@_) {
    my @args = @_;
    my $default = sub { Mojar::Log->new(@args) };
    eval sprintf
    'package %s; no strict q{refs}; sub log { $_[0]{log} //= $default->() }; 1',
        scalar caller
      or die 'Failed to create Mojar::Log mixin';
  }
}

# Attributes

has pattern => '%Y%m%d %H:%M:%S';

has format => sub {
  my $self = shift; weaken $self; sub {
    my ($time, $level, @lines) = @_;
    encode 'UTF-8', sprintf '%s[%s] %s', strftime($self->pattern,
        localtime($time)), $level, join "\n", @lines, ''
  }
};

1;
__END__