File Coverage

blib/lib/Geo/Location/IP/Database/SimpleReader.pm

Criterion	Covered	Total	%
statement	128	129	99.2
branch	17	18	94.4
condition			n/a
subroutine	27	27	100.0
pod	10	10	100.0
total	182	184	98.9

package Geo::Location::IP::Database::SimpleReader;

# SPDX-License-Identifier: Artistic-1.0-Perl OR GPL-1.0-or-later

use 5.026;
use warnings;
use utf8;

use Object::Pad;

class Geo::Location::IP::Database::SimpleReader;

our $VERSION = 0.005;

use Geo::Location::IP::Address;
use Geo::Location::IP::Model::AnonymousIP;
use Geo::Location::IP::Model::ASN;
use Geo::Location::IP::Model::City;
use Geo::Location::IP::Model::ConnectionType;
use Geo::Location::IP::Model::Country;
use Geo::Location::IP::Model::Domain;
use Geo::Location::IP::Model::Enterprise;
use Geo::Location::IP::Model::ISP;
use Geo::Location::IP::Network;
use IP::Geolocation::MMDB 1.011;

apply Geo::Location::IP::Role::HasLocales;

field $db;

#<<<
ADJUST :params (:$file) {
    $db = IP::Geolocation::MMDB->new(file => $file);
}
#>>>

method anonymous_ip ($, $ip) {
    my ($hash_ref, $ip_address) = $self->_get($ip);
    if (defined $hash_ref) {
        return Geo::Location::IP::Model::AnonymousIP->_from_hash($hash_ref,
            $ip_address);
    }
    return;
}

method asn ($, $ip) {
    my ($hash_ref, $ip_address) = $self->_get($ip);
    if (defined $hash_ref) {
        return Geo::Location::IP::Model::ASN->_from_hash($hash_ref,
            $ip_address);
    }
    return;
}

method city ($, $ip) {
    my ($hash_ref, $ip_address) = $self->_get($ip);
    if (defined $hash_ref) {
        return Geo::Location::IP::Model::City->_from_hash($hash_ref,
            $ip_address, $self->locales);
    }
    return;
}

method connection_type ($, $ip) {
    my ($hash_ref, $ip_address) = $self->_get($ip);
    if (defined $hash_ref) {
        return Geo::Location::IP::Model::ConnectionType->_from_hash($hash_ref,
            $ip_address);
    }
    return;
}

method country ($, $ip) {
    my ($hash_ref, $ip_address) = $self->_get($ip);
    if (defined $hash_ref) {
        return Geo::Location::IP::Model::Country->_from_hash($hash_ref,
            $ip_address, $self->locales);
    }
    return;
}

method domain ($, $ip) {
    my ($hash_ref, $ip_address) = $self->_get($ip);
    if (defined $hash_ref) {
        return Geo::Location::IP::Model::Domain->_from_hash($hash_ref,
            $ip_address);
    }
    return;
}

method enterprise ($, $ip) {
    my ($hash_ref, $ip_address) = $self->_get($ip);
    if (defined $hash_ref) {
        return Geo::Location::IP::Model::Enterprise->_from_hash($hash_ref,
            $ip_address, $self->locales);
    }
    return;
}

method isp ($, $ip) {
    my ($hash_ref, $ip_address) = $self->_get($ip);
    if (defined $hash_ref) {
        return Geo::Location::IP::Model::ISP->_from_hash($hash_ref,
            $ip_address);
    }
    return;
}

method file () {
    return $db->file;
}

method metadata () {
    return $db->metadata;
}

method _get ($ip) {
    my ($hash_ref, $prefixlen) = $db->get($ip);
    my $ip_address;
    if (defined $hash_ref) {
        my $network = Geo::Location::IP::Network->new(
            address   => $ip,
            prefixlen => $prefixlen,
        );
        $ip_address = Geo::Location::IP::Address->new(
            address => $ip,
            network => $network,
        );
    }
    return $hash_ref, $ip_address;
}

1;
__END__