Allow decoding of application/json.

This will detect if the file is UTF-8, UTF-16, or UTF-32,
and try and return the content decoded. It will allow use
of the charset/ default_charset options.

Also allow text/json (if UTF-8).

Author: dracos

lib/HTTP/Headers.pm

@@ -405,6 +405,13 @@ sub content_is_xml {
     return 0;
 }
 
+sub content_is_json {
+    my $ct = shift->content_type;
+    # text/json is not standard but still used by various servers.
+    # No issue including it as well.
+    return $ct eq 'application/json' || $ct eq 'text/json' || $ct =~ /\+json$/;
+}
+
 sub referer           {
     my $self = shift;
     if (@_ && $_[0] =~ /#/) {
@@ -737,6 +744,11 @@ content is XHTML.  This method can't be used to set Content-Type.
 Returns TRUE if the Content-Type header field indicate that the
 content is XML.  This method can't be used to set Content-Type.
 
+=item $h->content_is_json
+
+Returns TRUE if the Content-Type header field indicate that the
+content is JSON. This method can't be used to set Content-Type.
+
 =item $h->content_encoding
 
 The Content-Encoding header field is used as a modifier to the

lib/HTTP/Message.pm

@@ -351,7 +351,7 @@ sub decoded_content
 	    }
 	}
 
-	if ($self->content_is_text || (my $is_xml = $self->content_is_xml)) {
+	if ($self->content_is_text || (my $is_xml = $self->content_is_xml) || $self->content_is_json) {
 	    my $charset = lc(
 	        $opt{charset} ||
 		$self->content_type_charset ||