ES - support dev mode

Author: mickeyn

lib/MetaCPAN/ES.pm

@@ -7,12 +7,14 @@ use v5.36;
 use MetaCPAN::Logger qw< :log :dlog >;
 use Search::Elasticsearch;
 
-use MetaCPAN::Ingest qw< config handle_error >;
+use MetaCPAN::Ingest qw< config handle_error is_dev >;
 
 sub new ( $class, %args ) {
-    my $mode  = $args{mode} // "local";
     my $node  = $args{node};
-    my $index = $args{index} // "cpan";
+    my $index = $args{index} // 'cpan';
+
+    my $mode  = is_dev() ? 'test' : 'local';
+    $mode eq 'test' and Log::Log4perl::init('log4perl_test.conf'); # TODO: find a better place
 
     my $config = config;
     my $config_node =

lib/MetaCPAN/Ingest.pm

@@ -196,7 +196,7 @@ sub home () {
 
 # TODO: there must be a better way
 sub is_dev () {
-    return $ENV{PLACK_ENV} =~ /dev/;
+    return ( $ENV{PLACK_ENV} && $ENV{PLACK_ENV} =~ /dev/ );
 }
 
 sub minion () {

log4perl_test.conf

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