Yet Another CPAN Grep

GeoIP2 ( M/MA/MAXMIND/GeoIP2-2.006002.tar.gz, MAXMIND, 2019; MetaCPAN )

GeoIP2/maxmind-db/test-data/write-test-data.pl ( view source; MetaCPAN )

::Basename qw( dirname );
use File::Slurper qw( read_binary write_binary );
use Cpanel::JSON::XS qw( decode_json );
use Math::Int128 qw( MAX_UINT128 string_to_uint128 uint128 );
use MaxMind::DB::Write

tworks_with_data;

    my $value = shift;
    my $nodes
        = decode_json( read_binary("$Dir/../source-data/$type-Test.json") );

    for my $node (@$nodes) {
        for my $network ( keys %$node

GeoIP2 ( M/MA/MAXMIND/GeoIP2-2.006002.tar.gz, MAXMIND, 2019; MetaCPAN )

GeoIP2/lib/GeoIP2/WebService/Client.pm ( view source; MetaCPAN )

del::Insights;
use GeoIP2::Types
    qw( JSONObject MaxMindID MaxMindLicenseKey Str URIObject UserAgentObject );
use HTTP::Headers;
use HTTP::Request;
use JSON::MaybeXS;
use MIME::Base64 qw( encode_ba

   builder => '_build_base_uri',
);

has _json => (
    is       => 'ro',
    isa      => JSONObject,
    init_arg => undef,
    default  => quote_sub(q{ JSON::MaybeXS->new(utf8 => 1) }),
);

around B

est = HTTP::Request->new(
        'GET', $uri,
        HTTP::Headers->new( Accept => 'application/json' ),
    );

    $request->authorization_basic(
        $self->account_id(),
        $self->licens

GeoIP2 ( M/MA/MAXMIND/GeoIP2-2.006002.tar.gz, MAXMIND, 2019; MetaCPAN )

GeoIP2/lib/GeoIP2/Types.pm ( view source; MetaCPAN )

PORT_OK = qw(
    ArrayRef
    Bool
    BoolCoercion
    HTTPStatus
    HashRef
    IPAddress
    JSONObject
    LocalesArrayRef
    MaxMindID
    MaxMindLicenseKey
    MaybeStr
    NameHashRef
    No

( $_[0]->isa('JSON::Boolean')
                    || $_[0]->isa('JSON::PP::Boolean')
                    || $_[0]->isa('JSON::XS::Boolean')
                    || $_[0]->isa('Cpanel::JSON::XS::Boolean

l( $_[0], 'IPAddress' )
               unless Data::Validate::IP::is_ip( $_[0] ); }
    );
}

sub JSONObject () {
    return quote_sub(q{ GeoIP2::Types::object_can_type( $_[0], 'decode' ) });
}

{