File Coverage

blib/lib/Geo/Location/IP/Model/Country.pm

Criterion	Covered	Total	%
statement	51	51	100.0
branch			n/a
condition	7	12	58.3
subroutine	16	16	100.0
pod	6	6	100.0
total	80	85	94.1

package Geo::Location::IP::Model::Country;

# 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::Model::Country;

our $VERSION = 0.005;

use Geo::Location::IP::Record::Continent;
use Geo::Location::IP::Record::Country;
use Geo::Location::IP::Record::MaxMind;
use Geo::Location::IP::Record::RepresentedCountry;
use Geo::Location::IP::Record::Traits;

field $continent :param :reader;
field $country :param :reader;
field $maxmind :param :reader;
field $registered_country :param :reader;
field $represented_country :param :reader;
field $traits :param :reader;

sub _from_hash ($class, $hash_ref, $ip_address, $locales) {
    my $continent = Geo::Location::IP::Record::Continent->_from_hash(
        $hash_ref->{continent} // {}, $locales);

    my $country
        = Geo::Location::IP::Record::Country->_from_hash($hash_ref->{country}
            // {}, $locales);

    my $maxmind
        = Geo::Location::IP::Record::MaxMind->_from_hash($hash_ref->{maxmind}
            // {});

    my $registered_country = Geo::Location::IP::Record::Country->_from_hash(
        $hash_ref->{registered_country} // {}, $locales);

    my $represented_country
        = Geo::Location::IP::Record::RepresentedCountry->_from_hash(
        $hash_ref->{represented_country} // {}, $locales);

    my $traits
        = Geo::Location::IP::Record::Traits->_from_hash($hash_ref->{traits}
            // {}, $ip_address);

    return $class->new(
        continent           => $continent,
        country             => $country,
        maxmind             => $maxmind,
        registered_country  => $registered_country,
        represented_country => $represented_country,
        traits              => $traits,
    );
}

1;
__END__