CPAN::Groonga

e warnings;
{
    use URI;
    use Carp;
    use Readonly;
    use LWP::UserAgent;
    use JSON qw( from_json );
    use Storable qw( store retrieve );
    use HTTP::Status qw( HTTP_BAD_REQUEST );
   

        if !$self{key};

    croak "data_format must either be Perl or JSON"
        if $self{data_format} !~ m{\A (?: perl|json ) \z}xmsi;

    $self{ua} = LWP::UserAgent->new();
    $self{ua}->agen

\%form );

        $response = $self->{ua}->get($uri);
    }

    my $json = $response->content() || "";

    my ($message) = $json =~ m{ "message" \s* : \s* "( [^"]+ )" }xms;

    $message ||= $respo

=item data_format

This is either 'json' or 'perl'. If you indicate 'json' then you'll get the
raw JSON as given by the remote API. Otherwise, the JSON::from_json function
is used to transform the r