Yet Another CPAN Grep

MaxMind-DB-Reader-XS ( M/MA/MAXMIND/MaxMind-DB-Reader-XS-1.000009.tar.gz, MAXMIND, 2022; MetaCPAN )

MaxMind-DB-Reader-XS/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