TgLib.Logger

1 files changed, 24 insertions, 0 deletions

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;