CPAN::Groonga

ss';
no warnings 'experimental::class';

class Webservice::CVEDB::API 1.001;

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

field $ua   :reader = HTTP::Tiny->new(timeout => 7);
field $base :reader = 'https

    if (! $response->{success}){
        my %error;
        try{
            my $detail = decode_json($response->{content}) or croak "$!";
            $error{detail} = $detail->{detail}."\n";
       

uccess};
        }

        return \%error;
    }

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