From 024b3bf0d48326043682d8b8b4aa6caf8b69d9ae Mon Sep 17 00:00:00 2001
From: Guillermo Ramos
Date: Thu, 14 May 2020 19:46:15 +0200
Subject: Show datetime with logger

---
 lib/TgLib/Logger.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/TgLib/Logger.pm b/lib/TgLib/Logger.pm
index c80d22b..f2e9c54 100644
--- a/lib/TgLib/Logger.pm
+++ b/lib/TgLib/Logger.pm
@@ -1,5 +1,6 @@
 package TgLib::Logger;
 
+use POSIX qw(strftime);
 use strict;
 use warnings;
 
@@ -10,7 +11,8 @@ my %level = (warn => 0, info => 1, debug => 2);
 
 sub log_level {
     my ($self, $msg, $level) = @_;
-    print STDERR "[$level] $msg" if $level{$level} <= $self->{'level'};
+    my $date = strftime "%F %X", localtime;
+    print STDERR "[$level ] $date: $msg" if $level{$level} <= $self->{'level'};
 }
 
 ################################################################################
-- 
cgit v1.2.3