Net-CIDR-MobileJP
view release on metacpan - search on metacpan
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 distributionview release on metacpan - search on metacpan
( run in 0.741 second using v1.00-cache-2.02-grep-82fe00e-cpan-503542c4f10 )