File Coverage

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

Criterion	Covered	Total	%
statement	26	26	100.0
branch			n/a
condition	2	4	50.0
subroutine	8	8	100.0
pod	2	2	100.0
total	38	40	95.0

package Geo::Location::IP::Model::ASN;

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

our $VERSION = 0.005;

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

field $autonomous_system_number :param :reader;
field $autonomous_system_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;

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

1;
__END__