File Coverage

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

Criterion	Covered	Total	%
statement	20	20	100.0
branch			n/a
condition	1	2	50.0
subroutine	6	6	100.0
pod	1	1	100.0
total	28	29	96.5

package Geo::Location::IP::Model::Domain;

# 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::Domain;

our $VERSION = 0.005;

apply Geo::Location::IP::Role::HasIPAddress;

field $domain :param :reader;

sub _from_hash ($class, $hash_ref, $ip_address) {
    my $domain = $hash_ref->{domain} // undef;

    return $class->new(
        domain     => $domain,
        ip_address => $ip_address,
    );
}

1;
__END__