JSON -> JSON::MaybeXS

t/Controller/Admin/clear-queue-non-current.t

@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 use Setup;
-use JSON qw(decode_json encode_json);
+use JSON::MaybeXS qw(decode_json encode_json);
 use File::Copy;
 
 my %ctx = test_init(

t/Controller/Build/cancel.t

@@ -2,7 +2,7 @@ use feature 'unicode_strings';
 use strict;
 use warnings;
 use Setup;
-use JSON qw(decode_json encode_json);
+use JSON::MaybeXS qw(decode_json encode_json);
 
 my %ctx = test_init();
 

t/Controller/Build/restart.t

@@ -2,7 +2,7 @@ use feature 'unicode_strings';
 use strict;
 use warnings;
 use Setup;
-use JSON qw(decode_json encode_json);
+use JSON::MaybeXS qw(decode_json encode_json);
 
 my %ctx = test_init();
 

t/Controller/JobsetEval/cancel.t

@@ -2,7 +2,7 @@ use feature 'unicode_strings';
 use strict;
 use warnings;
 use Setup;
-use JSON qw(decode_json encode_json);
+use JSON::MaybeXS qw(decode_json encode_json);
 
 my %ctx = test_init();
 

t/Controller/JobsetEval/restart.t

@@ -2,7 +2,7 @@ use feature 'unicode_strings';
 use strict;
 use warnings;
 use Setup;
-use JSON qw(decode_json encode_json);
+use JSON::MaybeXS qw(decode_json encode_json);
 
 my %ctx = test_init();
 

t/Controller/Root/narinfo.t

@@ -2,7 +2,7 @@ use strict;
 use warnings;
 use Setup;
 use Data::Dumper;
-use JSON qw(decode_json);
+use JSON::MaybeXS qw(decode_json);
 my %ctx = test_init(
   # Without this, the test will fail because a `file:` store is not treated as a
   # local store by `isLocalStore` in src/lib/Hydra/Helper/Nix.pm, and any

t/plugins/RunCommand/basic.t

@@ -1,7 +1,7 @@
 use feature 'unicode_strings';
 use strict;
 use warnings;
-use JSON;
+use JSON::MaybeXS;
 use Setup;
 
 my %ctx = test_init(
@@ -42,7 +42,7 @@ my $dat = do {
     open(my $json_fh, "<", $filename)
         or die("Can't open \"$filename\": $!\n");
     local $/;
-    my $json = JSON->new;
+    my $json = JSON::MaybeXS->new;
     $json->decode(<$json_fh>)
 };