Merge pull request #959 from metacpan/haarg/cpanel-json-xs

convert uses of JSON to Cpanel::JSON::XS

Author: oalders

bin/convert_authors.pl

@@ -85,6 +85,6 @@
     unlink $file;
     (my $base = $file) =~ s/^(.*)\/.*?$/$1/;
     open FILE, '>', "$base/author-1.0.json";
-    print FILE JSON->new->pretty->encode( $raw );
+    print FILE Cpanel::JSON::XS->new->pretty->encode( $raw );
     close FILE;
 }

lib/Catalyst/Action/Deserialize/MetaCPANSanitizedJSON.pm

@@ -39,7 +39,7 @@ around execute => sub {
                     if ( my $source = delete $params->{source} ) {
 
                    # NOTE: merge $controller->{json_options} if we ever use it
-                        my $json = JSON->new->utf8;
+                        my $json = Cpanel::JSON::XS->new->utf8;
 
                         # if it decodes
                         if ( try { $source = $json->decode($source); } ) {

lib/MetaCPAN/Script/Release.pm

@@ -3,10 +3,6 @@ package MetaCPAN::Script::Release;
 use strict;
 use warnings;
 
-BEGIN {
-    $ENV{PERL_JSON_BACKEND} = 'JSON::XS';
-}
-
 use CPAN::DistnameInfo ();
 use File::Find::Rule   ();
 use File::stat         ();

lib/MetaCPAN/Server/View/JSONP.pm

@@ -21,7 +21,7 @@ sub process {
     my $content_type = $c->res->content_type;
     return 1 if ( $content_type eq 'text/javascript' );
     if ( $content_type ne 'application/json' ) {
-        $body = JSON->new->allow_nonref->ascii->encode($body);
+        $body = Cpanel::JSON::XS->new->allow_nonref->ascii->encode($body);
     }
     $c->res->body("/**/$cb($body);");
     return 1;

t/server/controller/source.t

@@ -2,6 +2,7 @@ use strict;
 use warnings;
 use lib 't/lib';
 
+use Cpanel::JSON::XS ();
 use MetaCPAN::Server::Test;
 use MetaCPAN::TestHelpers;
 use Test::More;
@@ -96,7 +97,7 @@ test_psgi app, sub {
                 );
                 ok(
                     my $jsdata
-                        = JSON->new->allow_nonref->decode($function_args),
+                        = Cpanel::JSON::XS->new->allow_nonref->decode($function_args),
                     'decode json'
                 );
                 is( $jsdata, $manifest, 'JSONP-wrapped manifest' );