Yet Another CPAN Grep

Net-Dimona ( G/GA/GARU/Net-Dimona-0.02.tar.gz, GARU, 2021; MetaCPAN )

Net-Dimona/lib/Net/Dimona.pm ( view source; MetaCPAN )

package Net::Dimona;
use strict;
use warnings;
use LWP::UserAgent;
use JSON::MaybeXS qw( encode_json decode_json );

our $VERSION = 0.02;

sub new {
    my ($class, %params) = @_;
    die 'api_key req

  => 'application/json',
        'Content-Type' => 'application/json',
        ($params ? ('Content' => encode_json($params)) : ())
    );
    my $data;
    eval { $data = decode_json($res->decoded_co