File Coverage

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

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition	1	3	33.3
subroutine	6	6	100.0
pod	1	2	50.0
total	26	29	89.6

#===============================================================================
#      PODNAME:  Net::IP::Identifier::Plugin::NephoScale
#     ABSTRACT:  identify NephoScale (AS13332 AS32105 AS46717) owned IP addresses
#
#       AUTHOR:  Reid Augustin (REID)
#        EMAIL:  [e-mail]
#      CREATED:  Sun Oct 12 19:32:46 PDT 2014
#===============================================================================

use 5.008;
use strict;
use warnings;

package Net::IP::Identifier::Plugin::NephoScale;

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 NephoScale (AS13332 AS32105 AS46717) IP blocks as of
    #    May 2015
    $self->ips(
        # 19 Network Blocks
        '23.252.240.0/20',
        '64.58.112.0/20',
        '67.207.192.0/20',
        '69.50.224.0/19',
        '96.46.176.0/20',
        '142.0.192.0/20',
        '142.0.240.0/20',
        '173.0.144.0/20',
        '173.233.128.0/19',
        # extending 173.237.0.0/18 to include 173.237.64.0/20
        '173.237.0.0-173.237.79.255',
        '198.89.96.0/19',
        '198.100.160.0/19',
        '199.188.116.0/22',
        '204.74.224.0/19',
        '208.69.176.0/21',
        '208.78.240.0/21',
        '208.166.48.0/20',
        '2607:e000::/32',
        '2607:f258::/32',
    );
    return $self;
}

sub name {
    return 'NephoScale';
}

1;

__END__