| blib/lib/Finance/YahooJPN/Sym2Name.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 10 | 80.0 |
| line | true | false | branch | |
|---|---|---|---|---|
| 54 | 0 | 4 | unless ($symbol =~ /^\d{4}$/) | |
| 63 | 1 | 2315 | if ($line =~ /\x{4e00}\x{81f4}\x{3059}\x{308b}\x{9298}\x{67c4}\x{306f}\x{898b}\x{3064}\x{304b}\x{308a}\x{307e}\x{305b}\x{3093}\x{3067}\x{3057}\x{305f}/) | |
| 80 | 3 | 1011 | if ($html[$i] eq ' | 英文社名 | ')
| 88 | 1 | 2 | if ($lang and lc $lang eq 'jpn') { } | |
| 99 | 0 | 4 | unless my $sock = 'IO::Socket::INET'->new('PeerAddr', $Server, 'PeerPort', 'http(80)', 'Proto', 'tcp') |