Merge pull request #2 from RsrchBoy/topic/encode_json_pretty

Add encode_json_pretty for easy prettification of json string output

lib/autobox/JSON.pm

@@ -25,13 +25,13 @@ autobox::JSON - bringing JSON functions to autobox
 
     say {name => 'Jim', age => 34}->encode_json;
     # {"name":"Jim","age":46}
-    
+
     my $person = '{"name":"Jim","age":46}'->decode_json
     # {name => 'Jim', age => 34}
 
     my $serialized_person = $person->encode_json;
     # {"name":"Jim","age":46}
-    
+
     # works on arrays too
     [1, 2, 3, 4, 5]->encode_json;
 
@@ -41,6 +41,17 @@ autobox::JSON - bringing JSON functions to autobox
 
 This method behaves the same as L<JSON/encode_json>.
 
+=head2 encode_json_pretty
+
+This method is identical to L</encode_json>, except that it also "prettifies"
+the output, making it easier for us mortals to read.  This is useful
+especially when dumping a JSON structure to something reasonable for, say,
+debug or other purposes.
+
+It is functionally the same as:
+
+    JSON->new->utf8->pretty->encode($ref)
+
 =head2 decode_json
 
 This method behaves the same as L<JSON/decode_json>.
@@ -88,5 +99,6 @@ package autobox::JSON::Ref;
 require JSON;
 sub to_json { JSON::to_json(shift); }
 sub encode_json { JSON::encode_json(shift); }
+sub encode_json_pretty { JSON->new->utf8->pretty->encode(shift); }
 
 1;

t/encode-decode.t

@@ -8,7 +8,14 @@ is {name => 'Jim', age => 46}->encode_json, '{"name":"Jim","age":46}', "hash to
 
 my $hash = { name => 'Jim', age => 46};
 
-is $hash->encode_json,, '{"name":"Jim","age":46}', "hash to json";
+is $hash->encode_json, '{"name":"Jim","age":46}', "hash to json";
+
+is $hash->encode_json_pretty,
+'{
+   "name" : "Jim",
+   "age" : 46
+}
+', "hash to pretty json";
 
 is [1,2,3,4]->encode_json, '[1,2,3,4]', "array to json";