Skip to content

Commit 5cb6cbe

Browse files
committed
ES - support dev mode
1 parent 5594c0b commit 5cb6cbe

File tree

3 files changed

+7
-4
lines changed

3 files changed

+7
-4
lines changed

lib/MetaCPAN/ES.pm

Lines changed: 5 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -7,12 +7,14 @@ use v5.36;
77
use MetaCPAN::Logger qw< :log :dlog >;
88
use Search::Elasticsearch;
99

10-
use MetaCPAN::Ingest qw< config handle_error >;
10+
use MetaCPAN::Ingest qw< config handle_error is_dev >;
1111

1212
sub new ( $class, %args ) {
13-
my $mode = $args{mode} // "local";
1413
my $node = $args{node};
15-
my $index = $args{index} // "cpan";
14+
my $index = $args{index} // 'cpan';
15+
16+
my $mode = is_dev() ? 'test' : 'local';
17+
$mode eq 'test' and Log::Log4perl::init('log4perl_test.conf'); # TODO: find a better place
1618

1719
my $config = config;
1820
my $config_node =

lib/MetaCPAN/Ingest.pm

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -196,7 +196,7 @@ sub home () {
196196

197197
# TODO: there must be a better way
198198
sub is_dev () {
199-
return $ENV{PLACK_ENV} =~ /dev/;
199+
return ( $ENV{PLACK_ENV} && $ENV{PLACK_ENV} =~ /dev/ );
200200
}
201201

202202
sub minion () {

log4perl_test.conf

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1 @@
1+
log4perl.logger = OFF

0 commit comments

Comments
 (0)