CPAN::Groonga

} 
    }) ];
}

sub search_tiny {
    args_pos my $self, my $title;

    my $titles = $self->api->json({
        req    => 'TitleSearch',
        search => $title,
        limit  => 15,
    })->{Title

my $self, my $args => { optional => 1, default => {} } ;
    my ($result) = values %{ $self->api->json({
        req => 'ProgramByPID',
        PID => $self->result->{PID},
        %$args,
    })->{Pr

my $self, my $args => { optional => 1, default => {} } ;
    my ($result) = values %{ $self->api->json({
        req => 'TitleFull',
        TID => $self->result->{TID},
        %$args,
    })->{Title

use JSON::XS;
use Web::Query;

use WebService::SyoboiCalendar::Error;
use WebService::SyoboiCalendar::API::Search;

Readonly my $API_RSS2  => "http://cal.syoboi.jp/rss2.php";
Readonly my $API_JSON  =>

 "http://cal.syoboi.jp/json.php";
Readonly my $API_LOGIN => "http://cal.syoboi.jp/usr";

has ua => (
    is => 'ro',
    default => sub { 
        my $ua = LWP::UserAgent->new;
        $ua->cookie_jar

s->is_error;
    $res;
}

sub get_json {
    my ($self, $url, $args) = @_;
    my $res = $self->get($url, $args);
    my $json = decode_json($res->content);
    $json;
}

sub _param {
    args_pos my