CPAN::Groonga

 5.008001;
use strict;
use warnings;

our $VERSION = "0.06";

use Carp qw(carp croak);
use JSON qw(decode_json);
use LWP::UserAgent;

use overload(
    '""'  => sub { $_[0]->name() },
    'cmp' => sub

$ua->post( $self->{'verify_api'}, $params );
    if  ( $res->is_success ) {
        return decode_json( $res->decoded_content );
    } else {
        croak $res->status_line;
    } 
}

sub deny_by_sco

to get I<query_name> so we don't have to care about it.

The response contains JSON so it returns decoded value from JSON.

 unless ( $content->{'success'} ) {
    # code for failing like below
    di