CPAN::Groonga

e LWP::UserAgent;
use HTTP::Request::Common();
use URI::PathAbstract;
use JSON;
our $json = JSON->new->pretty;
sub json { $json }

use WebService::Tumblr::Dispatch;
use WebService::Tumblr::Result;

us

lf->response->content_type =~ m/json/ ) {
            $value =~ s/^var tumblr_api_read = //;
            $value =~ s/;$//;
            $value = WebService::Tumblr::json->decode( $value );
        }