suppress logs (TODO: change)

Author: mickeyn

bin/author.pl

@@ -58,6 +58,10 @@
     "whois_file=s" => \$whois_file,
 );
 
+# TODO: find a better way
+$mode eq 'test' and Log::Log4perl::init('log4perl_test.conf');
+
+
 # setup
 my $es = MetaCPAN::ES->new( index => "author", ( $mode ? ( mode => $mode ) : () ) );
 

log4perl_test.conf

@@ -0,0 +1 @@
+log4perl.logger = OFF