File Coverage

blib/lib/Net/IP/Identifier/Plugin/B2_Net.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::B2_Net
3             # ABSTRACT: identify B2_Net Solutions (AS55286) owned IP addresses
4             #
5             # AUTHOR: Reid Augustin (REID)
6             # EMAIL: reid@hellosix.com
7             # CREATED: Sun Oct 12 19:32:46 PDT 2014
8             #===============================================================================
9              
10 1     1   28 use 5.008;
  1         3  
  1         55  
11 1     1   8 use strict;
  1         2  
  1         48  
12 1     1   7 use warnings;
  1         7  
  1         55  
13              
14             # _ENTITY_REGEX_ b2.?net
15              
16             package Net::IP::Identifier::Plugin::B2_Net;
17              
18 1     1   7 use Role::Tiny::With;
  1         1  
  1         260  
19             with qw( Net::IP::Identifier_Role );
20              
21             our $VERSION = '0.110'; # VERSION
22              
23             sub new {
24 1     1 1 2 my ($class, %opts) = @_;
25              
26 1         3 my $self = {};
27 1   33     16 bless $self, (ref $class || $class);
28              
29             # List of known B2_Net Solutions (AS55286) IP blocks as of May 2015
30 1         5 $self->ips(
31             # 17 Network Blocks
32             '23.229.0.0/17',
33             '23.236.128.0/17',
34             '23.250.0.0/17',
35             '23.254.0.0/17',
36             '69.4.80.0/20',
37             '69.58.0.0/20',
38             '104.144.0.0/16',
39             '104.227.0.0/16',
40             '107.152.128.0/17',
41             '138.128.0.0/17',
42             '192.157.48.0/20',
43             '192.186.128.0/18',
44             '192.198.96.0/19',
45             '192.241.64.0/18',
46             '198.20.160.0/19',
47             '198.154.80.0/20',
48             '198.245.64.0/20',
49             );
50 1         8 return $self;
51             }
52              
53             sub name {
54 3     3 0 12 return 'B2_Net';
55             }
56              
57             1;
58              
59             __END__