watcher - mode + removed type

Author: mickeyn

bin/watcher.pl

@@ -18,16 +18,20 @@
 >;
 
 # args
-my ( $backpan, $dry_run );
+my ( $backpan, $dry_run, $mode );
 GetOptions(
     "backpan" => \$backpan,
     "dry_run" => \$dry_run,
+    "mode=s"  => \$mode,
 );
+# TODO: find a better way
+my @es_mode = ( $mode ? (mode => $mode) : () );
+$mode and $mode eq 'test' and Log::Log4perl::init('log4perl_test.conf');
 
 # setup
 my $cpan       = cpan_dir();
-my $es_release = MetaCPAN::ES->new( type => "release" );
-my $es_file    = MetaCPAN::ES->new( type => "file" );
+my $es_release = MetaCPAN::ES->new( index => "release", @es_mode );
+my $es_file    = MetaCPAN::ES->new( index => "file", @es_mode );
 
 my $latest   = 0;
 my @segments = qw< 1h 6h 1d 1W 1M 1Q 1Y Z >;