Yet Another CPAN Grep

Sendmail-AbuseIPDB ( T/TT/TTNDY/Sendmail-AbuseIPDB-0.22.tar.gz, TTNDY, 2021; MetaCPAN )

Sendmail-AbuseIPDB/lib/Sendmail/AbuseIPDB.pm ( view source; MetaCPAN )

DB;

use 5.010001;
use strict;
use warnings;
use Carp;

use URI;
use JSON; # imports encode_json, decode_json, to_json and from_json.
use IPC::Cmd qw[ run ];

require Exporter;

our @ISA = qw(Exporter

@_;
    unshift @args, '-H', "Key: $this->{v2Key}";
    unshift @args, '-H', 'Accept: application/json';
    unshift @args, '/usr/bin/curl';
    my @result = run( command => \@args, verbose => $this->

_string );  }
    }

    my $json = $this->curlv2('-s', $url);
    if ($this->{Debug})
    {
        print STDERR "JSON:  $json\n";
    }

    my $result = from_json( $json );
    if( $this->{Debug})