File Coverage

blib/lib/Net/IP/Identifier/Plugin/Fedex.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

#===============================================================================
#      PODNAME:  Net::IP::Identifier::Plugin::Fedex
#     ABSTRACT:  identify Fedex (AS7726 AS27619 AS25676) owned IP addresses

#
#       AUTHOR:  Reid Augustin (REID)
#        EMAIL:  [e-mail]
#      CREATED:  Sun Oct 12 19:32:46 PDT 2014
#===============================================================================

use 5.008;
use strict;
use warnings;

package Net::IP::Identifier::Plugin::Fedex;

use Role::Tiny::With;
with qw( Net::IP::Identifier_Role );

our $VERSION = '0.111'; # VERSION

sub new {
    my ($class, %opts) = @_;

    my $self = {};
    bless $self, (ref $class || $class);

    # List of known Fedex (AS7726 AS27619 AS25676) IP blocks as of May 2015
    $self->ips(
        # 12 Network Blocks
        '12.168.77.0/24',
        '65.162.10.0/24',
        '146.18.0.0/16',
        '155.161.0.0/16',
        '165.150.0.0/16',
        '170.5.0.0/16',
        '170.170.0.0/16',
        '192.67.56.0/24',
        # extending 198.140.0.0/22 to include 198.140.4.0/23
        '198.140.0.0-198.140.5.255',
        # extending 199.81.0.0/16 to include 199.82.0.0/16
        '199.81.0.0-199.82.255.255',
        '203.208.20.0/24',
        '204.135.0.0/16',
    );
    return $self;
}

sub name {
    return 'Fedex';
}

1;

__END__