support alternative domain through env for testing

metacpan · Apr 23, 2016 · bf66f4c · bf66f4c
1 parent d54e315
commit bf66f4c
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/dist.ini b/dist.ini
@@ -21,7 +21,7 @@ version = 1.013000
 exclude_filename = cpanfile
 
 [Prereqs]
-Search::Elasticsearch = 1.10
+Search::Elasticsearch = 2.02
 
 [AutoPrereqs]
 skip = ^t::lib::Functions$

diff --git a/lib/MetaCPAN/Client/Request.pm b/lib/MetaCPAN/Client/Request.pm
@@ -7,13 +7,14 @@ use Moo;
 use Carp;
 use JSON::MaybeXS qw<decode_json encode_json>;
 use Search::Elasticsearch;
-use Search::Elasticsearch::Scroll;
 use Try::Tiny;
 use HTTP::Tiny;
 
 has domain => (
     is      => 'ro',
-    default => sub {'api.metacpan.org'},
+    default => sub {
+        return ( $ENV{METACPAN_DOMAIN} ? $ENV{METACPAN_DOMAIN} : 'api.metacpan.org' );
+    },
 );
 
 has version => (
@@ -304,4 +305,3 @@ Fetches a path from MetaCPAN (post or get), and returns the decoded result.
 
 Calls an Elastic Search query (using L<Search::Elasticsearch> and returns an
 L<Search::Elasticsearch::Scroll> scroller object.
-