Mojo::Log::My

gistfile1.pl

use common::sense;
use lib 'lib';

my $log = Mojo::Log::My->new;
$log->warn('sss');

package Mojo::Log::My;
use base 'Mojo::Log';

use Fcntl ':flock';

sub log {
  my ($self, $level, @msgs) = @_;

  # Check log level
  $level = lc $level;
  return $self unless $level && $self->is_level($level);

  # Caller
  my ($pkg, $line) = (caller())[0, 2];
  ($pkg, $line) = (caller(1))[0, 2] if $pkg eq ref $self;

  # Lock
  my $handle = $self->handle;
  flock $handle, LOCK_EX;

  # Log messages
  my $time = $self->_time2iso;
  my $msgs = join "\n",
    map { utf8::decode $_ unless utf8::is_utf8 $_; $_ } @msgs;
  $handle->syswrite("$time $level $pkg:$line [$$]: $msgs\n");

  # Unlock
  flock $handle, LOCK_UN;

  $self;
}

sub _time2iso {
	shift;
	return sprintf "%4d-%02d-%02d %02d:%02d:%02d", $_->[5]+1900, $_->[4]+1, reverse @$_[0..3] for [localtime(shift||time)];
}

1;