view release on metacpan or  search on metacpan

MANIFEST.SKIP  view on Meta::CPAN

# Mac OSX metadata
\B\.DS_Store
# Mac OSX SMB mount metadata files
\B\._

# Avoid Devel::Cover files.
\bcover_db\b

\.vscode

\.map$

t/Acme-Free-API-Geodata-GeoIP.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More tests => 8;
BEGIN { use_ok('Acme::Free::API::Geodata::GeoIP') };

my $geoip = Acme::Free::API::Geodata::GeoIP->new(debug => 0);
ok(defined($geoip), 'Initialization');

my %map = (
    '24.48.0.1' => 'Videotron',
    '94.130.141.212' => 'Hetzner',
);

foreach my $ip (sort keys %map) {
    my $org = $map{$ip};

    my $result = $geoip->lookup($ip);
    ok(defined($result), "Lookup $ip");

    next if(!defined($result));

    ok(defined($result->{org}), 'Contains org');
    next if(!defined($result->{org}));

    my $ismatch = 0;