diff options
| author | Guillermo Ramos | 2020-05-14 19:46:15 +0200 |
|---|---|---|
| committer | Guillermo Ramos | 2020-05-14 19:46:25 +0200 |
| commit | 024b3bf0d48326043682d8b8b4aa6caf8b69d9ae (patch) | |
| tree | 1fe0b203ddf52f33245c5a088542c616beec0db4 | |
| parent | c5191f10359f32a3af44f4087322348602734a3c (diff) | |
| download | tgutils-024b3bf0d48326043682d8b8b4aa6caf8b69d9ae.tar.gz | |
Show datetime with logger
| -rw-r--r-- | lib/TgLib/Logger.pm | 4 |
1 files changed, 3 insertions, 1 deletions
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'}; } ################################################################################ |