File Coverage

blib/lib/WWW/MobileCarrierJP/Softbank/Flash.pm
Criterion Covered Total %
statement 15 16 93.7
branch 0 2 0.0
condition n/a
subroutine 5 6 83.3
pod n/a
total 20 24 83.3


line stmt bran cond sub pod time code
1             package WWW::MobileCarrierJP::Softbank::Flash;
2 1     1   591 use strict;
  1         1  
  1         35  
3 1     1   5 use warnings;
  1         2  
  1         26  
4 1     1   5 use utf8;
  1         1  
  1         6  
5 1     1   4574 use charnames ':full';
  1         57400  
  1         8  
6 1     1   1042 use WWW::MobileCarrierJP::Declare;
  1         4  
  1         8  
7              
8             my $url = 'http://creation.mb.softbank.jp/mc/terminal/terminal_info/terminal_flash.html';
9             my $xpath = '//div[@class="terminaltable"]/table/tr[ not(@bgcolor="#cccccc") and count(child::td) != 1 and position() != 1]';
10              
11             parse_one(
12             urls => [$url],
13             xpath => $xpath,
14             scraper => scraper {
15             col 1 => 'model', 'TEXT';
16             col 2 => 'flashlite' => [
17             'TEXT',
18             sub { s/^Flash Lite\N{TRADE MARK SIGN}// },
19             sub { s/\s// },
20             sub { $_ = undef if /\N{MULTIPLICATION SIGN}/ }, # `x' case.
21             ];
22             col 3 => 'support_flash9', [ 'TEXT', \&_marubatsu ];
23             col 4 => 'support_embedded_flv', [ 'TEXT', \&_marubatsu ];
24             col 5 => 'support_progressive_flv', [ 'TEXT', \&_marubatsu ];
25             },
26             );
27              
28 0 0   0     sub _marubatsu { $_ = $_ =~ /\N{WHITE CIRCLE}|\N{BULLSEYE}/ ? 1 : 0 }
29              
30             1;
31             __END__