CPAN::Groonga

Client;

use strict;
use warnings;

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

 'client_secret' => $args->{'client_secret'},
        'format_type' => $args->{'format_type'} || 'json',
        'lwp' => LWP::UserAgent->new,
        'rapidapi_key' => $args->{'rapidapi_key'},
      

se {
        my $decoded = eval { decode_json $response->decoded_content };
        if (my $err = $@) {
            die "An error occurred while trying to json decode imgur response: $err\n" . $respon