CPAN::Groonga

l::signatures';

our $VERSION = '1.005';

class Webservice::InternetDB::API;

use HTTP::Tiny;
use JSON::PP;
use Carp;

field $ua = HTTP::Tiny->new(timeout => 7);
field $base = "https://internetdb.shod

success}  ){

        if( $response->{'headers'}{'content-type'} =~ /json/ ){

            croak $response->{status}." ".decode_json($response->{content})->{detail} ;

        }else{

            croa

atus}." ".$response->{content} ;
        }

    }

    try{
        $response->{content} = decode_json($response->{content});
    }catch($e){
        croak "unable to decode message from API ".$e;