File Coverage

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

Criterion	Covered	Total	%
statement	23	23	100.0
branch			n/a
condition	1	2	50.0
subroutine	7	7	100.0
pod	1	1	100.0
total	32	33	96.9

package Geo::Location::IP::Model::ConnectionType;

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

our $VERSION = 0.005;

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

field $connection_type :param :reader;

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

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

1;
__END__