File Coverage

blib/lib/Net/IP/Identifier/Plugin/FDCServers.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::FDCServers
3             # ABSTRACT: identify FDCServers (AS30058) owned IP addresses
4             #
5             # AUTHOR: Reid Augustin (REID)
6             # EMAIL: reid@hellosix.com
7             # CREATED: Thu Nov 6 09:57:17 PST 2014
8             #===============================================================================
9              
10 1     1   35 use 5.008;
  1         4  
  1         62  
11 1     1   6 use strict;
  1         2  
  1         42  
12 1     1   6 use warnings;
  1         2  
  1         68  
13              
14             package Net::IP::Identifier::Plugin::FDCServers;
15              
16 1     1   7 use Role::Tiny::With;
  1         2  
  1         301  
17             with qw( Net::IP::Identifier_Role );
18              
19             our $VERSION = '0.110'; # VERSION
20              
21             sub new {
22 1     1 1 3 my ($class, %opts) = @_;
23              
24 1         3 my $self = {};
25 1   33     11 bless $self, (ref $class || $class);
26              
27             # List of known FDCServers (AS30058) IP blocks as of May 2015
28 1         5 $self->ips(
29             '23.237.0.0/16',
30             '50.7.0.0/16',
31             '66.90.64.0/18',
32             '67.159.0.0/18',
33             '74.63.64.0/18',
34             '76.73.0.0/17',
35             '107.176.0.0/15',
36             '108.179.64.0/18',
37             '192.240.96.0/19',
38             '198.16.64.0/18',
39             '198.255.0.0/17',
40             '204.45.0.0/16',
41             '208.53.128.0/18',
42             '216.227.128.0/18',
43             '2001:49f0::/32',
44             # 15 Network Blocks
45             );
46 1         10 return $self;
47             }
48              
49             sub name {
50 3     3 0 15 return 'FDCServers';
51             }
52              
53             1;
54              
55             __END__