File Coverage

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

Criterion	Covered	Total	%
statement	32	32	100.0
branch			n/a
condition	4	8	50.0
subroutine	10	10	100.0
pod	4	4	100.0
total	50	54	92.5

package Geo::Location::IP::Model::ISP;

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

our $VERSION = 0.005;

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

field $autonomous_system_number :param :reader;
field $autonomous_system_organization :param :reader;
field $isp :param :reader;
field $organization :param :reader;

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

    my $autonomous_system_organization
        = $hash_ref->{autonomous_system_organization} // undef;

    my $isp = $hash_ref->{isp} // undef;

    my $organization = $hash_ref->{organization} // undef;

    return $class->new(
        autonomous_system_number       => $autonomous_system_number,
        autonomous_system_organization => $autonomous_system_organization,
        ip_address                     => $ip_address,
        isp                            => $isp,
        organization                   => $organization,
    );
}

1;
__END__