Allow decoding of application/javascript.

This media type has a charset parameter as pe RFC4329, so can
be treated in the same way that XML is.

Author: dracos

Diff for: lib/HTTP/Headers.pm

@@ -412,6 +412,13 @@ sub content_is_json {
     return $ct eq 'application/json' || $ct eq 'text/json' || $ct =~ /\+json$/;
 }
 
+sub content_is_javascript {
+    my $ct = shift->content_type;
+    # text/javascript is obsolete in RFC4329 but still used.
+    # No issue including it as well.
+    return $ct eq 'application/javascript' || $ct eq 'text/javascript';
+}
+
 sub referer           {
     my $self = shift;
     if (@_ && $_[0] =~ /#/) {
@@ -749,6 +756,11 @@ content is XML.  This method can't be used to set Content-Type.
 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_is_javascript
+
+Returns TRUE if the Content-Type header field indicate that the
+content is JavaScript. 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

Diff for: lib/HTTP/Message.pm

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