CPAN::Groonga

 "LWP::UserAgent";
use Carp ( );
use Readonly;
use String::CamelCase qw( camelize );
use URI;
use JSON;
use Mouse;
use Smart::Args;
use Class::Load qw( try_load_class );
use WebService::ChatWorkApi::R

GENT               => sprintf "%s/%s", __PACKAGE__, $VERSION;
Readonly my $CODEC               => JSON->new;
Readonly my $BASE_URL            => "https://api.chatwork.com/v1/";
Readonly my $BASE_RESPO

rnings;
package WebService::ChatWorkApi::Response;
use parent "HTTP::Response";
use Carp ( );
use JSON;
use HTTP::Status qw( HTTP_NO_CONTENT );

sub _gen_accessor {
    my $class = shift;
    my $key 

hift;
    no strict "refs";
    *{ "$class\::$key" } = sub { shift->get( $key ) };
}

sub codec { JSON->new }

sub limit { shift->header( "X-RateLimit-Limit" ) }

sub remaining { shift->header( "X-Rat

ontent;

=head1 DESCRIPTION

This module provides a few methods to represent ChatWork REST API spec.

Two most things are:

1. response is a JSON
2. 204 No Content at response list is empty (Not []).