File Coverage

blib/lib/HTTP/MobileAttribute/Plugin/CIDR.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch			n/a
condition			n/a
subroutine	9	9	100.0
pod	1	3	33.3
total	35	37	94.5

package HTTP::MobileAttribute::Plugin::CIDR;
use strict;
use warnings;
use base qw/HTTP::MobileAttribute::Plugin/;

use Net::CIDR::MobileJP;

__PACKAGE__->depends([qw/CarrierLetter/]);

sub init {
    my($self, $c) = @_;
    $self->{cidr} = Net::CIDR::MobileJP->new($self->config->{cidr});
}

sub reload_cidr :Method {
    my($self, $c, $cidr) = @_;
    $self->{cidr} = Net::CIDR::MobileJP->new($cidr);
    return;
}

sub isa_cidr :Method {
    my($self, $c, $ip) = @_;
    ($c->carrier eq $self->{cidr}->get_carrier($ip));
}

1;
__END__