Use encode_json instead of to_json:

to_json is not provided by JSON::MaybeXS. We use encode_json instead. This fixes a breakage that was presented by the rev_deps.pl example.
metacpan · Apr 27, 2014 · 61876c8 · 61876c8
1 parent 9643f54
commit 61876c8
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/MetaCPAN/Client/Request.pm b/lib/MetaCPAN/Client/Request.pm
@@ -5,7 +5,7 @@ package MetaCPAN::Client::Request;
 
 use Moo;
 use Carp;
-use JSON::MaybeXS 'decode_json';
+use JSON::MaybeXS qw<decode_json encode_json>;
 use Search::Elasticsearch;
 use Search::Elasticsearch::Scroll;
 use Try::Tiny;
@@ -56,7 +56,7 @@ sub fetch {
     my $ua      = $self->ua;
 
     my $result  = keys %{$params}
-        ? $ua->post( $req_url, { content => to_json $params } )
+        ? $ua->post( $req_url, { content => encode_json $params } )
         : $ua->get($req_url);
 
     return $self->_decode_result( $result, $req_url );