diff --git a/lib/Rex/Logger.pm b/lib/Rex/Logger.pm index b38fa4dfd..085a94382 100644 --- a/lib/Rex/Logger.pm +++ b/lib/Rex/Logger.pm @@ -35,7 +35,10 @@ use warnings; # VERSION -#use Rex; +require Exporter; +our @ISA = qw(Exporter); +our @EXPORT_OK = qw(log_debug log_info log_warn log_error); +our %EXPORT_TAGS = (all => [@EXPORT_OK]); our $no_color = 0; eval "use Term::ANSIColor"; @@ -105,7 +108,7 @@ sub init { $log_opened = 1; } -sub info { +sub logger { my ( $msg, $type ) = @_; my $color = 'green'; @@ -171,6 +174,15 @@ sub info { } } +sub log_error { logger( shift, "error" ) } +sub log_warn { logger( shift, "warn" ) } +sub log_info { logger( shift, "info" ) } +sub log_debug { debug(@_) } + +sub error { logger( shift, "error" ) } +sub warn { logger( shift, "warn" ) } +sub info { logger(@_) } + sub debug { my ($msg) = @_; return if $silent;