File Coverage

blib/lib/Net/IP/Identifier/Plugin/Koffivend.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::Koffivend
3             # ABSTRACT: identify Koffivend Corp (AS201305) owned IP addresses
4             #
5             # AUTHOR: Reid Augustin (REID)
6             # EMAIL: reid@hellosix.com
7             # CREATED: Thu Mar 26 10:41:08 PDT 2015
8             #===============================================================================
9              
10 1     1   32 use 5.008;
  1         4  
  1         53  
11 1     1   7 use strict;
  1         1  
  1         51  
12 1     1   4 use warnings;
  1         2  
  1         36  
13              
14             # _ENTITY_REGEX_ koffi-?vend
15              
16             package Net::IP::Identifier::Plugin::Koffivend;
17              
18 1     1   9 use Role::Tiny::With;
  1         1  
  1         274  
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     18 bless $self, (ref $class || $class);
28              
29             # List of known Koffivend Corp (AS201305) IP blocks as of May 2015
30 1         7 $self->ips(
31             # 18 Network Blocks
32             '78.159.156.0/24',
33             # extending 87.243.67.0/24 to include 87.243.68.0/24
34             # extending 87.243.67.0-87.243.68.255 to include 87.243.69.0/24
35             # extending 87.243.67.0-87.243.69.255 to include 87.243.70.0/24
36             # extending 87.243.67.0-87.243.70.255 to include 87.243.71.0/24
37             # extending 87.243.67.0-87.243.71.255 to include 87.243.72.0/24
38             # extending 87.243.67.0-87.243.72.255 to include 87.243.73.0/24
39             # extending 87.243.67.0-87.243.73.255 to include 87.243.74.0/24
40             # extending 87.243.67.0-87.243.74.255 to include 87.243.75.0/24
41             # extending 87.243.67.0-87.243.75.255 to include 87.243.76.0/24
42             '87.243.67.0-87.243.76.255',
43             '87.243.79.0/24',
44             # extending 87.243.83.0/24 to include 87.243.84.0/24
45             '87.243.83.0-87.243.84.255',
46             '87.243.88.0/24',
47             # extending 87.243.90.0/24 to include 87.243.91.0/24
48             '87.243.90.0/23',
49             # extending 87.243.94.0/24 to include 87.243.95.0/24
50             # extending 87.243.94.0/23 to include 87.243.96.0/24
51             # extending 87.243.94.0-87.243.96.255 to include 87.243.97.0/24
52             # extending 87.243.94.0-87.243.97.255 to include 87.243.98.0/24
53             '87.243.94.0-87.243.98.255',
54             '87.243.100.0/24',
55             # extending 87.243.102.0/24 to include 87.243.103.0/24
56             # extending 87.243.102.0/23 to include 87.243.104.0/24
57             '87.243.102.0-87.243.104.255',
58             # extending 87.243.106.0/24 to include 87.243.107.0/24
59             '87.243.106.0/23',
60             # extending 87.243.109.0/24 to include 87.243.110.0/24
61             '87.243.109.0-87.243.110.255',
62             '94.73.9.0/24',
63             '94.73.16.0/24',
64             '109.160.10.0/24',
65             # extending 109.160.44.0/24 to include 109.160.45.0/24
66             # extending 109.160.44.0/23 to include 109.160.46.0/24
67             '109.160.44.0-109.160.46.255',
68             # extending 109.160.64.0/24 to include 109.160.65.0/24
69             # extending 109.160.64.0/23 to include 109.160.66.0/24
70             # extending 109.160.64.0-109.160.66.255 to include 109.160.67.0/24
71             '109.160.64.0/22',
72             '109.160.121.0/24',
73             # extending 195.230.26.0/24 to include 195.230.27.0/24
74             # extending 195.230.26.0/23 to include 195.230.28.0/24
75             # extending 195.230.26.0-195.230.28.255 to include 195.230.29.0/24
76             # extending 195.230.26.0-195.230.29.255 to include 195.230.30.0/24
77             # extending 195.230.26.0-195.230.30.255 to include 195.230.31.0/24
78             '195.230.26.0-195.230.31.255',
79             );
80 1         6 return $self;
81             }
82              
83             sub name {
84 3     3 0 13 return 'Koffivend';
85             }
86              
87             1;
88              
89             __END__