File Coverage

blib/lib/IP/Geolocation/MMDB.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	3	6	50.0
condition			n/a
subroutine	8	8	100.0
pod	2	2	100.0
total	41	44	93.1

package IP::Geolocation::MMDB;

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

use 5.016;
use warnings;
use utf8;

our $VERSION = 1.010;

use IP::Geolocation::MMDB::Metadata;
use Math::BigInt 1.999806;

require XSLoader;
XSLoader::load(__PACKAGE__, $VERSION);

sub getcc {
    my ($self, $ip_address) = @_;

    my $country_code;

    my $data = $self->record_for_address($ip_address);
    if (ref $data eq 'HASH') {
        if (exists $data->{country}) {
            my $country = $data->{country};
            if (exists $country->{iso_code}) {
                $country_code = $country->{iso_code};
            }
        }
    }

    return $country_code;
}

sub metadata {
    my ($self) = @_;

    return IP::Geolocation::MMDB::Metadata->new(%{$self->_metadata});
}

## no critic (Subroutines::ProhibitUnusedPrivateSubroutines)

sub _to_bigint {
    my ($self, $bytes) = @_;

    return Math::BigInt->from_bytes($bytes);
}

1;
__END__