Use JSON::PP for releases.json snippets as it is in core since 5.14

We can later switch to JSON::MaybeXS if we need XS speed.

Author: shawnlaffan

Build.PL

@@ -55,7 +55,7 @@ my $builder = $class->new(
         'HTML::Entities'        => 0,
         'IO::Capture'           => 0,
         'IPC::Run3'             => 0,
-        'JSON'                  => 0,
+        'JSON::PP'              => 0,
         'LWP::UserAgent'        => 0,
         'Pod::Usage'            => 0,
         'Portable::Dist'        => '1.06',

lib/Perl/Dist/Strawberry/Step/OutputReleasesJSONSnippet.pm

@@ -5,7 +5,7 @@ use warnings;
 use base 'Perl::Dist::Strawberry::Step';
 
 use Time::Piece;
-use JSON;
+use JSON::PP;
 
 use File::Spec::Functions qw(catfile);
 
@@ -87,7 +87,7 @@ sub run {
   };
 
   #p $snippet;
-  my $json_snippet = JSON->new->utf8->pretty->canonical->encode($snippet);
+  my $json_snippet = JSON::PP->new->utf8->pretty->canonical->encode($snippet);
   open my $fh, '>', $json_file or die "Unable to open $json_file, $!";
   print {$fh} $json_snippet;
   $fh->close;