diff options
Diffstat (limited to 'lib/TgLib')
| -rw-r--r-- | lib/TgLib/Logger.pm | 5 |
1 files changed, 3 insertions, 2 deletions
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; |