File Coverage

blib/lib/WWW/MobileCarrierJP/Softbank/Java.pm

Criterion	Covered	Total	%
statement	6	12	50.0
branch	0	8	0.0
condition	0	3	0.0
subroutine	2	4	50.0
pod			n/a
total	8	27	29.6

package WWW::MobileCarrierJP::Softbank::Java;
use WWW::MobileCarrierJP::Declare;
use charnames ':full';

parse_one(
    urls => ['http://creation.mb.softbank.jp/mc/terminal/terminal_info/terminal_sapp.html'],
    xpath => q(//div[@class='terminaltable']/table/tr[ not(@bgcolor="#cccccc") and count(child::td) != 1 and position() != 1]),
    scraper => scraper {
        my $limit;
        col 1 => 'model'        => 'TEXT';
        col 2 => 'heap'         => [
            'TEXT', sub {
                /(\d+)(M|K)(\((\d+)(M|K)\))?/; +{ base => _exchange($1, $2), ex => _exchange($4, $5) };
        }];
        col 3 => 'cldc'         => [
            'TEXT', sub { s/\N{MULTIPLICATION SIGN}//; s/\s\z// }
        ];
        col 4 => 'midp'         => [
            'TEXT', sub { s/\N{MULTIPLICATION SIGN}//; s/\s\z// }
        ];
        col 5 => 'profile'      => [ 'TEXT', sub { s/\N{MULTIPLICATION SIGN}//; s/\s\z// } ];
        col 6 => 'felica_api'   => [ 'TEXT', sub { s/\N{MULTIPLICATION SIGN}//; s/\s\z// } ];
        col 7 => 'location_api' => [
            'TEXT', sub {
                s/\N{MULTIPLICATION SIGN}//; &_marubatsu;
        }];
        col 9 => 'limit'        => [
            'TEXT', sub {
                s/\N{MULTIPLICATION SIGN}//; /(\d+)(M|K)/; _exchange($1, $2);
        }];
        col 8 => 'size'         => [
            'TEXT', sub {
                /(\d+)(M|K)\/(\d+)(M|K)\/(\d+)(M|K)/;
                +{ jad => _exchange($1, $2), jar => _exchange($3, $4), rs => _exchange($5, $6) };
        }];
    },
);

sub _marubatsu { $_ =~ /\N{WHITE CIRCLE}|\N{BULLSEYE}/ ? 1 : 0 }

sub _exchange {
    my ($heap, $sufix) = @_;
    return 0 if !$heap || !$sufix;
    return $heap * 1024 if $sufix eq 'K';
    return $heap * 1024 * 1024 if $sufix eq 'M';
    return 0;
}

1;
__END__