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 ) }

[download]

In Section Seekers of Perl Wisdom