File Coverage

blib/lib/Net/IP/Identifier/Plugin/Eonix.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::Eonix
3             # ABSTRACT: identify Eonix (AS30693) 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   31 use 5.008;
  1         4  
  1         48  
11 1     1   7 use strict;
  1         2  
  1         57  
12 1     1   7 use warnings;
  1         3  
  1         58  
13              
14             package Net::IP::Identifier::Plugin::Eonix;
15              
16 1     1   7 use Role::Tiny::With;
  1         2  
  1         190  
17             with qw( Net::IP::Identifier_Role );
18              
19             our $VERSION = '0.111'; # VERSION
20              
21             sub new {
22 1     1 1 3 my ($class, %opts) = @_;
23              
24 1         3 my $self = {};
25 1   33     8 bless $self, (ref $class || $class);
26              
27             # List of known Eonix (AS30693) IP blocks as of May 2015
28 1         5 $self->ips(
29             # 14 Network Blocks
30             '23.90.0.0/18',
31             '23.231.0.0/17',
32             '50.2.0.0/15',
33             '75.75.224.0/19',
34             '104.140.0.0/16',
35             '104.206.0.0/16',
36             '107.158.0.0/16',
37             '170.130.0.0/16',
38             '173.44.128.0/17',
39             '173.213.64.0/18',
40             '173.232.0.0/16',
41             '206.214.64.0/19',
42             '208.89.216.0/21',
43             '2607:ff28::/32',
44             );
45 1         8 return $self;
46             }
47              
48             sub name {
49 3     3 0 11 return 'Eonix';
50             }
51              
52             1;
53              
54             __END__