File Coverage

blib/lib/Net/IP/Identifier/Plugin/Hotmail.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::Hotmail
3             # ABSTRACT: identify Hotmail 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         57  
11 1     1   8 use strict;
  1         1  
  1         62  
12 1     1   6 use warnings;
  1         3  
  1         76  
13             #
14             # _ENTITY_REGEX_ hotmail|microsoft
15              
16             package Net::IP::Identifier::Plugin::Hotmail;
17              
18 1     1   9 use Role::Tiny::With;
  1         1  
  1         267  
19             with qw( Net::IP::Identifier_Role );
20              
21             our $VERSION = '0.110'; # VERSION
22              
23             sub new {
24 1     1 1 4 my ($class, %opts) = @_;
25              
26 1         3 my $self = {};
27 1   33     12 bless $self, (ref $class || $class);
28              
29             # List of known Hotmail IP blocks as of May 2015
30 1         8 $self->ips(
31             '64.4.0.0/18',
32             '65.52.0.0/14',
33             # extending 157.54.0.0/15 to include 157.56.0.0/14
34             # extending 157.54.0.0-157.59.255.255 to include 157.60.0.0/16
35             '157.54.0.0-157.60.255.255',
36             '207.46.0.0/16',
37             # 4 Network Blocks
38             );
39 1         6 return $self;
40             }
41              
42             sub name {
43 3     3 0 9 return 'Hotmail';
44             }
45              
46             1;
47              
48             __END__