File Coverage

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

Criterion	Covered	Total	%
statement	32	32	100.0
branch			n/a
condition	6	12	50.0
subroutine	12	12	100.0
pod	6	6	100.0
total	56	62	90.3

package Geo::Location::IP::Model::AnonymousIP;

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

our $VERSION = 0.005;

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

field $is_anonymous :param :reader         = 0;
field $is_anonymous_vpn :param :reader     = 0;
field $is_hosting_provider :param :reader  = 0;
field $is_public_proxy :param :reader      = 0;
field $is_residential_proxy :param :reader = 0;
field $is_tor_exit_node :param :reader     = 0;

sub _from_hash ($class, $hash_ref, $ip_address) {
    return $class->new(
        ip_address           => $ip_address,
        is_anonymous         => $hash_ref->{is_anonymous}         // 0,
        is_anonymous_vpn     => $hash_ref->{is_anonymous_vpn}     // 0,
        is_hosting_provider  => $hash_ref->{is_hosting_provider}  // 0,
        is_public_proxy      => $hash_ref->{is_public_proxy}      // 0,
        is_residential_proxy => $hash_ref->{is_residential_proxy} // 0,
        is_tor_exit_node     => $hash_ref->{is_tor_exit_node}     // 0,
    );
}

1;
__END__