File Coverage

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

Criterion	Covered	Total	%
statement	28	29	96.5
branch	4	8	50.0
condition			n/a
subroutine	9	9	100.0
pod	0	2	0.0
total	41	48	85.4

package HTTP::MobileAgent::Plugin::CIDR;

use warnings;
use strict;
use Carp;
use HTTP::MobileAgent;
use HTTP::MobileAgent::Plugin::CIDR::RegEx;

use version; our $VERSION = qv('0.0.1');

package # hide from PAUSE
       HTTP::MobileAgent;

sub check_network {
    my ($self,$ip) = @_;

    my $ipbit = masked_ipbit($ip,32);

    $ipbit =~ $self->__network_regex ? 1 : 0;
}

sub __network_regex{ qr(^[01]{32}$) }

sub masked_ipbit {
    my ($ip,$snm,$setrest) = @_;
    $snm =~ s|/||g;

    my $ret = $snm ? substr(join("", map { unpack("B8",  pack("C", $_)) } split(/\./,$ip)),0,$snm) :
                     "";
    if ($setrest) {
        $ret .= sprintf("[01]{%d}",32-$snm) if (32-$snm);
    }

    return $ret;
}

1; # Magic true value required at end of module
__END__