CPAN::Groonga

ct;
use warnings;

use Data::Dumper;
use File::Slurp;
use HTTP::Request::Common;
use JSON qw(decode_json encode_json);
use List::Util qw(first);
use LWP::UserAgent;
use MIME::Base64;
use Mozilla::CA;

ient_secret'  => $args->{'client_secret'},
        'format_type'    => $args->{'format_type'} // 'json',
        'rapidapi_key'   => $args->{'rapidapi_key'},
        'user_agent'     => LWP::UserAgent

p->{'_content'});
    }

    my $decoded = eval { decode_json $resp->{'_content'} };
    if (my $err = $@) {
        die "failed to decode json response: $err\n" . $resp->{'_content'} . "\n";
    }

 

ata::Dumper;
use File::Slurp;
use HTTP::Headers;
use HTTP::Request::Common 6.07;
use JSON qw(decode_json encode_json);
use List::Util qw(first);
use LWP::UserAgent;
use MIME::Base64;
use Mozilla::CA;

ient_secret'  => $args->{'client_secret'},
        'format_type'    => $args->{'format_type'} // 'json',
        'rapidapi_key'   => $args->{'rapidapi_key'},
        'user_agent'     => LWP::UserAgent

p->{'_content'});
    }

    my $decoded = eval { decode_json $resp->{'_content'} };
    if (my $err = $@) {
        die "failed to decode json response: $err\n" . $resp->{'_content'} . "\n";
    }