File Coverage

blib/lib/Geo/Location/IP/Record/RepresentedCountry.pm

Criterion	Covered	Total	%
statement	22	24	91.6
branch			n/a
condition	10	12	83.3
subroutine	7	8	87.5
pod	1	2	50.0
total	40	46	86.9

package Geo::Location::IP::Record::RepresentedCountry;

# 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::Record::RepresentedCountry
    :isa(Geo::Location::IP::Record::Country);

our $VERSION = 0.005;

field $type :param :reader = undef;

sub _from_hash ($class, $hash_ref, $locales) {
    return $class->new(
        names                => $hash_ref->{names}                // {},
        confidence           => $hash_ref->{confidence}           // undef,
        geoname_id           => $hash_ref->{geoname_id}           // undef,
        is_in_european_union => $hash_ref->{is_in_european_union} // 0,
        iso_code             => $hash_ref->{iso_code}             // undef,
        type                 => $hash_ref->{type}                 // undef,
        locales              => $locales,
    );
}

use overload
    q{""} => \&stringify;

sub stringify {
    my $self = shift;

    return $self->name;
}

1;
__END__