File Coverage

blib/lib/Net/IP/Identifier/Plugin/DigitalOcean.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::DigitalOcean
#     ABSTRACT:  identify DigitalOcean owned IP addresses
#
#       AUTHOR:  Reid Augustin (REID)
#        EMAIL:  [e-mail]
#      CREATED:  Tue Nov 11 10:29:26 PST 2014
#===============================================================================

use 5.008;
use strict;
use warnings;

# _ENTITY_REGEX_ digital.?ocean

package Net::IP::Identifier::Plugin::DigitalOcean;

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 DigitalOcean IP blocks as of March 2015
    #   AS62567 AS393406 AS202109 AS202018 AS201229 AS200130 AS14061 AS133165
    $self->ips(
        # 25 Network Blocks
        # extending 5.101.96.0/21 to include 5.101.104.0/21
        '5.101.96.0/20',
        '37.139.0.0/19',
        '45.55.0.0/16',
        '46.101.0.0/16',
        '80.240.128.0/20',
        '82.196.0.0/20',
        '95.85.0.0/18',
        '103.253.144.0/22',
        '104.131.0.0/16',
        '104.236.0.0/16',
        '107.170.0.0/16',
        '162.243.0.0/16',
        '178.62.0.0/17',
        '185.14.184.0/22',
        '188.166.0.0/16',
        '188.226.128.0/17',
        '192.34.56.0/21',
        '192.81.208.0/20',
        '192.241.128.0/17',
        '198.199.64.0/18',
        '198.211.96.0/19',
        '208.68.36.0/22',
        '2400:6180::/32',
        '2604:a880::/32',
        '2a03:b0c0::/32',
    );
    return $self;
}

sub name {
    return 'DigitalOcean';
}

1;

__END__