File Coverage

blib/lib/Net/IP/Identifier/Plugin/WholeSale.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch			n/a
condition	1	3	33.3
subroutine	7	7	100.0
pod	1	3	33.3
total	28	32	87.5

#===============================================================================
#      PODNAME:  Net::IP::Identifier::Plugin::WholeSale
#     ABSTRACT:  identify WholeSale Internet (AS32097) owned IP addresses
#
#       AUTHOR:  Reid Augustin (REID)
#        EMAIL:  [e-mail]
#      CREATED:  Tue Nov 11 13:13:47 PST 2014
#===============================================================================

use 5.008;
use strict;
use warnings;

package Net::IP::Identifier::Plugin::WholeSale;

use Role::Tiny::With;
with qw( Net::IP::Identifier_Role );

our $VERSION = '0.111'; # VERSION

sub new {
    my ($class, %opts) = @_;

    my $self = {};
    bless $self, (ref $class || $class);

    # List of known WholeSale Internet (AS32097) IP blocks as of May 2015
    # (apparently associated with Datashack and Zhou Pizhong)
    $self->ips(
        '69.30.192.0/18',
        '69.197.128.0/18',
        '118.107.0.0/18',
        '173.208.128.0/17',
        '185.22.142.0/23',
        '204.12.192.0/18',
        '208.67.0.0/21',
        '208.110.64.0/19',
        '210.79.16.0/20',
        '2001:4858::/32',
        # 10 Network Blocks
    );
    return $self;
}

sub name {
    return 'WholeSale';
}

sub children {
    return 'DataShack';
}

1;

__END__