package WWW::MobileCarrierJP::Softbank::CIDR;
use strict;
use warnings;
use Web::Scraper;
use URI;

sub url { 'http://creation.mb.softbank.jp/mc/tech/tech_web/web_ipaddress.html'; }

sub scrape {
    scraper {
        process q{//table[@class='onece_table' and position() <= 2]/tr},
          'cidr[]', [
            'TEXT',
            sub {
                s/\s//g
            },
            sub {
                m{^([0-9.]+)(/[0-9]+)};
                +{ ip => $1, subnetmask => $2 };
              }
          ];
    }->scrape(URI->new(__PACKAGE__->url))->{cidr};
}

1;
__END__

=encoding utf-8

=head1 NAME

WWW::MobileCarrierJP::Softbank::CIDR - CIDR(Softbank)

=head1 SYNOPSIS

    use WWW::MobileCarrierJP::Softbank::CIDR;
    WWW::MobileCarrierJP::Softbank::CIDR->scrape();

=head1 AUTHOR

Tokuhiro Matsuno < tokuhirom gmail com >

=head1 SEE ALSO

L<WWW::MobileCarrierJP>