File Coverage

blib/lib/Net/IP/Identifier/Plugin/HostingSlnInt.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


line stmt bran cond sub pod time code
1             #===============================================================================
2             # PODNAME: Net::IP::Identifier::Plugin::HostingSlnInt
3             # ABSTRACT: identify Hosting Solutions International (ASN30083) owned IP addresses
4             #
5             # AUTHOR: Reid Augustin (REID)
6             # EMAIL: reid@hellosix.com
7             # CREATED: Wed Nov 19 11:00:13 PST 2014
8             #===============================================================================
9              
10 1     1   33 use 5.008;
  1         5  
  1         46  
11 1     1   5 use strict;
  1         2  
  1         35  
12 1     1   4 use warnings;
  1         2  
  1         47  
13              
14             # _ENTITY_REGEX_ hosting.solutions.international
15              
16             package Net::IP::Identifier::Plugin::HostingSlnInt;
17              
18 1     1   4 use Role::Tiny::With;
  1         1  
  1         158  
19             with qw( Net::IP::Identifier_Role );
20              
21             our $VERSION = '0.111'; # VERSION
22              
23             sub new {
24 1     1 1 2 my ($class, %opts) = @_;
25              
26 1         1 my $self = {};
27 1   33     8 bless $self, (ref $class || $class);
28              
29             # List of known Hosting Solutions International (ASN30083) IP blocks as
30             # of May 2015
31 1         4 $self->ips(
32             # 8 Network Blocks
33             '50.30.32.0/20',
34             '69.64.32.0/19',
35             '173.224.112.0/20',
36             '199.189.84.0/22',
37             '199.217.112.0/21',
38             '209.126.96.0/19',
39             '209.239.112.0/20',
40             '2605:de00::/32',
41             );
42 1         6 return $self;
43             }
44              
45             sub name {
46 3     3 0 11 return 'HostingSlnInt';
47             }
48              
49             1;
50              
51             __END__