File Coverage

blib/lib/Net/IP/Identifier/Plugin/DataShack.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::DataShack
3             # ABSTRACT: identify DataShack (AS33387) owned IP addresses
4             #
5             # AUTHOR: Reid Augustin (REID)
6             # EMAIL: reid@hellosix.com
7             # CREATED: Tue Nov 11 10:10:29 PST 2014
8             #===============================================================================
9              
10 1     1   37 use 5.008;
  1         5  
  1         56  
11 1     1   9 use strict;
  1         1  
  1         54  
12 1     1   5 use warnings;
  1         1  
  1         57  
13              
14             # _ENTITY_REGEX_ data.?shack
15              
16             package Net::IP::Identifier::Plugin::DataShack;
17              
18 1     1   6 use Role::Tiny::With;
  1         3  
  1         288  
19             with qw( Net::IP::Identifier_Role );
20              
21             our $VERSION = '0.110'; # VERSION
22              
23             sub new {
24 1     1 1 3 my ($class, %opts) = @_;
25              
26 1         3 my $self = {};
27 1   33     13 bless $self, (ref $class || $class);
28              
29             # List of known DataShack (AS33387) IP blocks as of May 2015
30             # (apparently associated with WholeSale Internet and Zhou Pizhong)
31 1         8 $self->ips(
32             # 11 Network Blocks
33             '63.141.224.0/19',
34             '74.91.16.0/20',
35             '107.150.32.0/19',
36             '142.54.160.0/19',
37             '173.208.166.0/24',
38             '173.208.250.0/24',
39             '192.151.144.0/20',
40             '192.187.96.0/19',
41             '198.204.224.0/19',
42             '199.168.96.0/21',
43             '2604:4300::/32',
44             );
45 1         6 return $self;
46             }
47              
48             sub name {
49 3     3 0 11 return 'DataShack';
50             }
51              
52             1;
53              
54             __END__