Re^2: json return value (sub WWW::Mechanize::is_mimetype )

[Anonymous Monk]

in reply to Re: json return value
in thread json return value

is_json is like is_html, one trick pony :)

use MIME::Types;
our $mimetypes = MIME::Types->new;
sub WWW::Mechanize::is_mimetype { goto &WWW::Mechanize::is_mt } 
sub WWW::Mechanize::is_mt { $mimetypes->mimeTypeOf( $_[1] )->equals( $
+_[0]->ct ) }