use Cpanel::JSON::XS everywhere

Author: haarg

cpanfile

@@ -41,7 +41,6 @@ requires 'HTTP::Request::Common';
 requires 'IO::Async::Loop';
 requires 'IO::Async::SSL';
 requires 'IO::Socket::SSL';
-requires 'JSON::MaybeXS' => '1.004000';
 requires 'List::Util', '1.45';
 requires 'Locale::Country','3.62';
 requires 'Log::Dispatch';

lib/MetaCPAN/Middleware/Static.pm

@@ -5,7 +5,7 @@ use Plack::Builder   qw( builder enable mount );
 use Plack::App::File ();
 use Cwd              qw( cwd );
 use Plack::MIME      ();
-use JSON::MaybeXS    ();
+use Cpanel::JSON::XS ();
 
 Plack::MIME->add_type(
     '.eot'   => 'application/vnd.ms-fontobject',
@@ -34,7 +34,7 @@ sub wrap {
             or die "can't find asset map";
         my $json = do { local $/; <$fh> };
         close $fh;
-        my $files = JSON::MaybeXS->new->decode($json);
+        my $files = Cpanel::JSON::XS->new->decode($json);
         return [ map "/assets/$_", @$files ];
     };
 

lib/MetaCPAN/Web/Controller/Account.pm

@@ -5,7 +5,7 @@ use Moose;
 BEGIN { extends 'MetaCPAN::Web::Controller' }
 
 use MetaCPAN::Web::RenderUtil ();
-use JSON::MaybeXS             ();
+use Cpanel::JSON::XS          ();
 
 sub auto : Private {
     my ( $self, $c ) = @_;
@@ -36,7 +36,7 @@ sub login_status : Local : Args(0) : Auth(0) {
     my $output = $c->{stash}{json} ||= {};
 
     if ( my $user = $c->user ) {
-        $output->{logged_in} = JSON::MaybeXS::true;
+        $output->{logged_in} = Cpanel::JSON::XS::true;
         if ( my $pause_id = $user->pause_id ) {
 
             # this is not a complete author record, but enough for now
@@ -62,7 +62,7 @@ sub login_status : Local : Args(0) : Auth(0) {
         $c->forward('/account/favorite/list_as_json');
     }
     else {
-        $c->stash->{json}{logged_in} = JSON::MaybeXS::false;
+        $c->stash->{json}{logged_in} = Cpanel::JSON::XS::false;
         $c->cdn_max_age('30d');
     }
 }