issue #477: get rid of perl JSON module requirement.

tests/ansible/integration/runner/custom_perl_json_args_module.yml

@@ -9,7 +9,7 @@
 
     - assert:
         that:
-        - out.results[0].input[0].foo
+        - out.results[0].input.foo
         - out.results[0].message == 'I am a perl script! Here is my input.'
 
     - when: ansible_version.full > '2.4'

tests/ansible/integration/runner/custom_perl_want_json_module.yml

@@ -9,7 +9,7 @@
 
     - assert:
         that:
-        - out.results[0].input[0].foo
+        - out.results[0].input.foo
         - out.results[0].message == 'I am a want JSON perl script! Here is my input.'
 
     - when: ansible_version.full > '2.4'

tests/ansible/lib/modules/custom_perl_json_args_module.pl

@@ -1,15 +1,10 @@
 #!/usr/bin/perl
 
-binmode STDOUT, ":utf8";
-use utf8;
-
-use JSON;
-
 my $json_args = <<'END_MESSAGE';
 <<INCLUDE_ANSIBLE_MODULE_JSON_ARGS>>
 END_MESSAGE
 
-print encode_json({
+print '{';
-    message => "I am a perl script! Here is my input.",
+print '   "message": "I am a perl script! Here is my input.",' . "\n";
-    input => [decode_json($json_args)]
+print '   "input": ' . $json_args;
-});
+print '}' . "\n";

tests/ansible/lib/modules/custom_perl_want_json_module.pl

@@ -1,12 +1,7 @@
 #!/usr/bin/perl
 
-binmode STDOUT, ":utf8";
-use utf8;
-
 my $WANT_JSON = 1;
 
-use JSON;
-
 my $json;
 {
   local $/; #Enable 'slurp' mode
@@ -15,7 +10,7 @@ my $json;
   close $fh;
 }
 
-print encode_json({
+print "{\n";
-    message => "I am a want JSON perl script! Here is my input.",
+print ' "message": "I am a want JSON perl script! Here is my input.",' . "\n";
-    input => [decode_json($json_args)]
+print ' "input": ' . $json_args . "\n";
-});
+print "}\n";