s/JSON::XS/Cpanel::JSON::XS/

metacpan · Nov 11, 2015 · 9e0145d · 9e0145d
1 parent 9b8fb0e
commit 9e0145d
Show file tree

Hide file tree

Showing 11 changed files with 17 additions and 16 deletions.
diff --git a/bin/check_json.pl b/bin/check_json.pl
@@ -3,7 +3,7 @@
 use 5.010;
 
 use Data::Dumper;
-use JSON::XS;
+use Cpanel::JSON::XS;
 
 foreach my $file ( @ARGV ) {
     say "Processing $file";

diff --git a/bin/get_fields.pl b/bin/get_fields.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 # PODNAME: get_fields.pl
 use Data::Dumper;
-use JSON::XS;
+use Cpanel::JSON::XS;
 use File::Find::Rule;
 use File::Basename;
 use Path::Class;

diff --git a/cpanfile b/cpanfile
@@ -73,7 +73,7 @@ requires 'IO::String';
 requires 'IO::Uncompress::Bunzip2';
 requires 'IO::Zlib';
 requires 'IPC::Run3';
-requires 'JSON::XS', '3.01';
+requires 'Cpanel::JSON::XS', '3.0115';
 requires 'JSON', '2.90';
 requires 'LWP::Protocol::https';
 requires 'LWP::UserAgent';

diff --git a/elasticsearch/cpanratings.pl b/elasticsearch/cpanratings.pl
@@ -31,7 +31,7 @@
 use List::Util qw(sum);
 use WWW::Mechanize::Cached;
 use HTML::TokeParser::Simple;
-use JSON::XS;
+use Cpanel::JSON::XS;
 use Parse::CSV;
 use Path::Class::File;
 use feature 'say';
@@ -212,7 +212,7 @@ sub mean {
 sub dump_json
 {
     my $hash_data = shift;
-    my $coder = JSON::XS->new->ascii->pretty->allow_nonref;
+    my $coder = Cpanel::JSON::XS->new->ascii->pretty->allow_nonref;
     my $json = $coder->utf8->encode ($hash_data);
     #binmode(STDOUT, ":utf8");
     return $json;

diff --git a/lib/MetaCPAN/Script/Author.pm b/lib/MetaCPAN/Script/Author.pm
@@ -10,7 +10,7 @@ use DateTime::Format::ISO8601 ();
 use Email::Valid              ();
 use Encode                    ();
 use File::stat                ();
-use JSON::XS                  ();
+use Cpanel::JSON::XS          ();
 use Log::Contextual qw( :log );
 use MetaCPAN::Document::Author;
 use URI ();
@@ -113,7 +113,7 @@ sub author_config {
         return undef;
     }
     my $json = $file->slurp;
-    my $author = eval { JSON::XS->new->utf8->relaxed->decode($json) };
+    my $author = eval { Cpanel::JSON::XS->new->utf8->relaxed->decode($json) };
 
     if ($@) {
         log_warn {"$file is broken: $@"};

diff --git a/lib/MetaCPAN/Script/Backup.pm b/lib/MetaCPAN/Script/Backup.pm
@@ -7,7 +7,7 @@ use feature qw( state );
 use Data::Printer;
 use DateTime;
 use IO::Zlib ();
-use JSON::XS;
+use Cpanel::JSON::XS;
 use Log::Contextual qw( :log :dlog );
 use MetaCPAN::Types qw( Bool Int Str File );
 use Moose;

diff --git a/lib/MetaCPAN/Script/Mirrors.pm b/lib/MetaCPAN/Script/Mirrors.pm
@@ -24,7 +24,7 @@ sub index_mirrors {
 
     my $json    = $self->cpan->file( 'indices', 'mirrors.json' )->slurp;
     my $type    = $self->index->type('mirror');
-    my $mirrors = JSON::XS::decode_json($json);
+    my $mirrors = Cpanel::JSON::XS::decode_json($json);
     foreach my $mirror (@$mirrors) {
         $mirror->{location}
             = { lon => $mirror->{longitude}, lat => $mirror->{latitude} };

diff --git a/lib/MetaCPAN/Script/Query.pm b/lib/MetaCPAN/Script/Query.pm
@@ -4,7 +4,7 @@ use strict;
 use warnings;
 
 use Data::DPath qw(dpath);
-use JSON::XS;
+use Cpanel::JSON::XS;
 use Moose;
 use MooseX::Aliases;
 use YAML::Syck qw(Dump);
@@ -40,7 +40,8 @@ sub run {
         }
     );
     my @results = dpath($path)->match( decode_json($json) );
-    ( my $dump = Dump(@results) ) =~ s/\!\!perl\/scalar:JSON::XS::Boolean //g;
+    ( my $dump = Dump(@results) )
+        =~ s/\!\!perl\/scalar:Cpanel::JSON::XS::Boolean //g;
     print $dump;
 
 }

diff --git a/lib/MetaCPAN/Script/Release.pm b/lib/MetaCPAN/Script/Release.pm
@@ -4,7 +4,7 @@ use strict;
 use warnings;
 
 BEGIN {
-    $ENV{PERL_JSON_BACKEND} = 'JSON::XS';
+    $ENV{PERL_JSON_BACKEND} = 'Cpanel::JSON::XS';
 }
 
 use CPAN::DistnameInfo ();

diff --git a/lib/MetaCPAN/Script/Watcher.pm b/lib/MetaCPAN/Script/Watcher.pm
@@ -4,7 +4,7 @@ use strict;
 use warnings;
 
 use CPAN::DistnameInfo;
-use JSON::XS;
+use Cpanel::JSON::XS;
 use Log::Contextual qw( :log );
 use MetaCPAN::Util;
 use Moose;

diff --git a/lib/MetaCPAN/Server/View/JSON.pm b/lib/MetaCPAN/Server/View/JSON.pm
@@ -3,7 +3,7 @@ package MetaCPAN::Server::View::JSON;
 use strict;
 use warnings;
 
-use JSON::XS;
+use Cpanel::JSON::XS;
 use Moose;
 
 extends 'Catalyst::View::JSON';
@@ -14,8 +14,8 @@ sub encode_json($) {
     my ( $self, $c, $data ) = @_;
     my $encoder
         = $c->req->looks_like_browser
-        ? JSON::XS->new->utf8->pretty
-        : JSON::XS->new->utf8;
+        ? Cpanel::JSON::XS->new->utf8->pretty
+        : Cpanel::JSON::XS->new->utf8;
     $encoder->encode( exists $data->{rest} ? $data->{rest} : $data );
 }