From 0e3e79e3d72de5118c74b8515bcffb38e7db8fad Mon Sep 17 00:00:00 2001
From: Guillermo Ramos
Date: Mon, 24 Jun 2019 17:40:07 +0200
Subject: TgLib.Logger

---
 lib/TgLib/Logger.pm | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 lib/TgLib/Logger.pm

(limited to 'lib/TgLib')

diff --git a/lib/TgLib/Logger.pm b/lib/TgLib/Logger.pm
new file mode 100644
index 0000000..fe5d6a9
--- /dev/null
+++ b/lib/TgLib/Logger.pm
@@ -0,0 +1,24 @@
+package TgLib::Logger;
+
+use parent qw<Exporter>;
+our @EXPORT = qw<new debug info>;
+
+my %level = (info => 1, debug => 2);
+
+sub log_level {
+    my ($self, $msg, $level) = @_;
+    print STDERR "[$level] $msg" if $level{$level} <= $self->{'level'};
+}
+
+################################################################################
+# Public
+
+sub new {
+    my ($class, $verbose) = @_;
+    return bless { level => $verbose }, $class;
+}
+
+sub debug { log_level(@_, 'debug'); }
+sub info { log_level(@_, 'info'); }
+
+1;
-- 
cgit v1.2.3