CPAN::Groonga

package WWW::Jirafe;

use strict;
use 5.008_005;
our $VERSION = '0.01';

use LWP::UserAgent;
use JSON;
use Carp 'croak';
use URI::Escape qw/uri_escape/;
use HTTP::Request;

sub new {
    my $class = s

n} or croak "access_token is required.";

    $args{ua} ||= LWP::UserAgent->new();
    $args{json} ||= JSON->new->allow_nonref->utf8;

    $args{API_BASE} ||= 'https://event.jirafe.com/v2/';

    bles

lf->{access_token});
    $req->header('Accept', 'application/json'); # JSON is better
    if ($params) {
        $req->content($self->{json}->encode($params));
    }
    my $res = $self->{ua}->request