File Coverage

blib/lib/Net/IP/Identifier/Plugin/Facebook.pm

Criterion	Covered	Total	%
statement	18	24	75.0
branch			n/a
condition	1	3	33.3
subroutine	6	7	85.7
pod	1	3	33.3
total	26	37	70.2

#===============================================================================
#      PODNAME:  Net::IP::Identifier::Plugin::Facebook
#     ABSTRACT:  identify Facebook (AS32934) owned IP addresses
#
#       AUTHOR:  Reid Augustin (REID)
#        EMAIL:  [e-mail]
#      CREATED:  Thu Oct 30 14:28:30 PDT 2014
#===============================================================================

use 5.008;
use strict;
use warnings;

package Net::IP::Identifier::Plugin::Facebook;

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 Facebook (AS32934) IP blocks as of May 2015
    $self->ips(
        # 14 Network Blocks
        '31.13.24.0/21',
        '31.13.64.0/18',
        '66.220.144.0/20',
        '69.63.176.0/20',
        '69.171.224.0/19',
        '74.119.76.0/22',
        '173.252.64.0/18',
        '185.60.216.0/22',
        '199.201.64.0/22',
        '204.15.20.0/22',
        '2401:db00::/32',
        '2620:0:1c00::/40',
        '2620:10d:c000::/40',
        '2a03:2880::/32',
    );
    return $self;
}

sub name {
    return 'Facebook';
}

sub refresh {
    my ($self) = @_;

    my @fb = system `whois -h whois.radb.net '!gAS32934'`;
    my @cidrs = split(/\s+/, join('', map { m|/| } @fb));

    delete $self->{ips};
    $self->ips(@cidrs);
}

1;

__END__