Upgrade to v1

metacpan · Nov 18, 2016 · 4b3d390 · 4b3d390
1 parent c51d807
commit 4b3d390
Show file tree

Hide file tree

Showing 9 changed files with 12 additions and 23 deletions.
diff --git a/cpanfile b/cpanfile
@@ -7,7 +7,7 @@ requires 'HTTP::Tiny::Mech';
 requires 'IO::Socket::SSL';
 requires 'JSON';
 requires 'MetaCPAN::API::Tiny';
-requires 'MetaCPAN::Client', '>= 1.015000';
+requires 'MetaCPAN::Client', '>= 1.028003';
 requires 'Search::Elasticsearch';
 requires 'WWW::Mechanize::Cached';
 requires 'WWW::Mechanize::Cached::GZip';

diff --git a/lib/MetaCPAN/Util.pm b/lib/MetaCPAN/Util.pm
@@ -8,9 +8,10 @@ use Sub::Exporter -setup => { exports => ['es'] };
 
 sub es {
     return Search::Elasticsearch->new(
-        cxn_pool => 'Static::NoPing',
-        nodes    => 'api.metacpan.org',
-        trace_to => 'Stdout',
+        cxn_pool         => 'Static::NoPing',
+        nodes            => 'https://fastapi.metacpan.org',
+        send_get_body_as => 'POST',
+        trace_to         => 'Stdout',
     );
 }
 

diff --git a/scripts/endpoints/author/1-fetch-single-author-curl.sh b/scripts/endpoints/author/1-fetch-single-author-curl.sh
@@ -1,3 +1,3 @@
 #!/bin/sh
 
-curl http://api.metacpan.org/v0/author/MSTROUT
+curl https://fastapi.metacpan.org/v1/author/MSTROUT
diff --git a/scripts/endpoints/author/1-fetch-single-author-es.pl b/scripts/endpoints/author/1-fetch-single-author-es.pl
@@ -8,12 +8,12 @@
 
 my $es = Search::Elasticsearch->new(
     cxn_pool => 'Static::NoPing',
-    nodes    => 'api.metacpan.org',
+    nodes    => 'fastapi.metacpan.org',
     trace_to => 'Stdout',
 );
 
 my $author = $es->get(
-    index => 'v0',
+    index => 'v1',
     type  => 'author',
     id    => 'MSTROUT',
 );

diff --git a/scripts/endpoints/author/1-fetch-single-author-mcpan-api-tiny.pl b/scripts/endpoints/author/1-fetch-single-author-mcpan-api-tiny.pl
diff --git a/scripts/endpoints/author/1-fetch-single-author-www-mech-cached.pl b/scripts/endpoints/author/1-fetch-single-author-www-mech-cached.pl
@@ -6,6 +6,6 @@
 
 use WWW::Mechanize::Cached::GZip;
 my $mech = WWW::Mechanize::Cached::GZip->new;
-$mech->get('http://api.metacpan.org/v0/author/MSTROUT');
+$mech->get('https://fastapi.metacpan.org/v1/author/MSTROUT');
 
 say $mech->content;
diff --git a/...author/1-fetch-single-author-mcpan-api.pl → ...endpoints/author/1-fetch-single-author.pl b/...author/1-fetch-single-author-mcpan-api.pl → ...endpoints/author/1-fetch-single-author.pl
@@ -6,7 +6,7 @@
 use Data::Printer;
 use MetaCPAN::Client;
 
-my $mcpan  = MetaCPAN::Client->new();
+my $mcpan  = MetaCPAN::Client->new( version => 'v1' );
 my $author = $mcpan->author('MSTROUT');
 
 p $author;
diff --git a/...nts/author/1a-search-authors-mcpan-api.pl → ...pts/endpoints/author/1a-search-authors.pl b/...nts/author/1a-search-authors-mcpan-api.pl → ...pts/endpoints/author/1a-search-authors.pl
@@ -7,7 +7,7 @@
 use Data::Printer;
 use MetaCPAN::Client;
 
-my $mc = MetaCPAN::Client->new;
+my $mc = MetaCPAN::Client->new( version => 'v1' );
 
 my $search = $mc->author( { name => 'Olaf *' } );
 

diff --git a/scripts/endpoints/author/1b-scroll-all-authors-es.pl b/scripts/endpoints/author/1b-scroll-all-authors-es.pl
@@ -9,7 +9,7 @@
 my $scroller = es()->scroll_helper(
     search_type => 'scan',
     scroll      => '5m',
-    index       => 'v0',
+    index       => 'v1',
     type        => 'author',
     size        => 100,
     body        => {