Yet Another CPAN Grep

WebService-Hatena-Graph ( K/KE/KENTARO/WebService-Hatena-Graph-0.08.tar.gz, KENTARO, 2013; MetaCPAN )

WebService-Hatena-Graph/lib/WebService/Hatena/Graph.pm ( view source; MetaCPAN )

package WebService::Hatena::Graph;

use strict;
use warnings;
use Carp qw(croak);

use URI;
use JSON::Any;
use LWP::UserAgent;

our $VERSION = '0.08';

our $GraphHost = 'graph.hatena.ne.jp:80';

sub n

raphHost.'/api/data', (%args, type => 'json'));

    croak (sprintf "%d: %s", $res->code, $res->message)
        if $res->code != 200;

    return JSON::Any->jsonToObj($res->content);
}

sub post_conf

phHost.'/api/config', (%args, type => 'json'));

    croak (sprintf "%d: %s", $res->code, $res->message)
        if $res->code != 200;

    return JSON::Any->jsonToObj($res->content);
}

sub _get {