CPAN::Groonga

Parser::JSON;
use Params::Validate qw( :all );
use Readonly;
use URI;

use version; our $VERSION = qv('1.0.0');

# Module implementation here

# constants
Readonly my $REGEX_FORMAT => '^(?:json|xml)$'

messages => '/1/messages.json',
            users    => '/1/users/validate.json',
            receipts => '/1/receipts/$receipt$.json',
            sounds   => '/1/sounds.json',
        };
    },
);

 = @_;
    return WebService::Simple->new(
        response_parser => WebService::Simple::Parser::JSON->new,
        base_url        => $self->base_url,
        debug           => $self->debug,
    );