Net-CIDR-MobileJP

 view release on metacpan or  search on metacpan

lib/Net/CIDR/MobileJP.pm  view on Meta::CPAN

        } else {
            require YAML;
            \&YAML::LoadFile;
        }
    }->();
};

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

    return bless {spanner => $class->_create_spanner($class->_load_config($stuff))}, $class;
}

sub _create_spanner {
    my ($class, $conf) = @_;

    my $spanner = Net::CIDR::Lite::Span->new;
    while (my ($carrier, $ip_ranges) = each %$conf) {
        $spanner->add(do {
            my $cidr = Net::CIDR::Lite->new;
            for my $ip_range (@$ip_ranges) {

 view all matches for this distribution
 view release on metacpan -  search on metacpan

( run in 0.741 second using v1.00-cache-2.02-grep-82fe00e-cpan-503542c4f10 )