From d27d603d01b025d1bb85e463601428736d01f273 Mon Sep 17 00:00:00 2001
From: Guillermo Ramos
Date: Tue, 25 Jun 2019 02:07:12 +0200
Subject: No empty responses, Logger::warn

---
 lib/TgLib/Logger.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'lib')

diff --git a/lib/TgLib/Logger.pm b/lib/TgLib/Logger.pm
index fe5d6a9..17a111d 100644
--- a/lib/TgLib/Logger.pm
+++ b/lib/TgLib/Logger.pm
@@ -1,9 +1,9 @@
 package TgLib::Logger;
 
 use parent qw<Exporter>;
-our @EXPORT = qw<new debug info>;
+our @EXPORT = qw<new debug info warn>;
 
-my %level = (info => 1, debug => 2);
+my %level = (warn => 0, info => 1, debug => 2);
 
 sub log_level {
     my ($self, $msg, $level) = @_;
@@ -20,5 +20,6 @@ sub new {
 
 sub debug { log_level(@_, 'debug'); }
 sub info { log_level(@_, 'info'); }
+sub warn { log_level(@_, 'warn'); }
 
 1;
-- 
cgit v1.2.3