| line |
true |
false |
branch |
|
60
|
0 |
0 |
unless ($level =~ /^[1-6]$/u) |
|
67
|
0 |
0 |
if $Debug == 5 |
|
68
|
0 |
0 |
if $Debug == 6 |
|
78
|
0 |
4 |
unless ($lowercase eq 'start' or $lowercase eq 'last' or $lowercase eq 'noadjust') |
|
84
|
4 |
0 |
if ($option{'start'}) { } |
|
|
0 |
0 |
elsif ($option{'last'}) { } |
|
85
|
4 |
0 |
if ($option{'last'}) { } |
|
96
|
0 |
4 |
if ($option{'noadjust'} and $option{'noadjust'} == 1) { } |
|
128
|
0 |
8 |
unless ($symbol) |
|
131
|
8 |
0 |
if ($symbol eq '998405' or $symbol eq '998407' or $symbol eq '23337' or $symbol =~ /^\d{4}(\.[a-zA-Z]){0,1}$/u) { } |
|
155
|
0 |
563 |
unless ($sock = 'IO::Socket::INET'->new('PeerAddr', $Server, 'PeerPort', 'http(80)', 'Proto', 'tcp', 'Timeout', 10)) |
|
162
|
0 |
0 |
if ($i < $MAX_RETRY - 1) { } |
|
180
|
563 |
0 |
if ($html[0] =~ m[^HTTP/1\.1 200 OK]u) { } |
|
184
|
0 |
0 |
if ($i < $MAX_RETRY - 1) { } |
|
230
|
0 |
0 |
unless my $socks = 'IO::Socket::Socks'->new('ConnectAddr', $Server, 'ConnectPort', 80, 'Proto', 'tcp', 'ProxyAddr', $proxy_addr, 'ProxyPort', $proxy_port, 'SocksVersion', $$self{'socks_version'}) |
|
251
|
0 |
0 |
if ($html[0] =~ m[^HTTP/1\.1 200 OK]u) { } |
|
255
|
0 |
0 |
if ($i >= $MAX_RETRY - 2) |
|
289
|
0 |
16 |
unless ($lowercase eq 'start' or $lowercase eq 'last') |
|
292
|
0 |
16 |
unless ($term{$key} =~ /^\d{4}-\d{2}-\d{2}$/u) |
|
308
|
8 |
555 |
if ($yearEnd == $yearStart and $monthEnd == $monthStart) { } |
|
314
|
0 |
563 |
if ($$self{'proxy'}) { } |
|
321
|
1 |
562 |
if ($remotedoc =~ /\x{8a72}\x{5f53}\x{3059}\x{308b}\x{9298}\x{67c4}\x{306f}\x{3042}\x{308a}\x{307e}\x{305b}\x{3093}\x{3002}/u) |
|
322
|
0 |
1 |
if $Debug == 1 |
|
326
|
0 |
562 |
if ($remotedoc =~ /\x{8a72}\x{5f53}\x{3059}\x{308b}\x{671f}\x{9593}\x{306e}\x{30c7}\x{30fc}\x{30bf}\x{306f}\x{3042}\x{308a}\x{307e}\x{305b}\x{3093}\x{3002}/u) |
|
327
|
0 |
0 |
if $Debug == 1 |
|
336
|
0 |
562 |
if ($Debug == 1) { } |
|
341
|
120 |
442 |
if ($$self{'symbol'} eq '998405' or $$self{'symbol'} eq '998407' or $$self{'symbol'} eq '23337') { } |
|
353
|
7 |
555 |
if ($yearEnd == $yearStart and $monthEnd == $monthStart) |
|
354
|
0 |
7 |
if $Debug == 1 |
|
358
|
6 |
549 |
if ($dayEnd != 31) |
|
362
|
45 |
510 |
if ($monthEnd == 1) { } |
|
386
|
442 |
109174 |
if ($line =~ m[^ | \x{8abf}\x{6574}\x{5f8c}\x{7d42}\x{5024}\* | $]u)
|
395
|
0 |
442 |
if ($Debug == 2) |
|
406
|
0 |
442 |
if ($Debug == 3) |
|
412
|
7 |
8839 |
if ($row =~ /class="through"/u) |
|
421
|
0 |
7 |
if $Debug == 4 |
|
444
|
0 |
8839 |
if ($Debug == 4) |
|
466
|
120 |
27600 |
if ($line =~ m[^ | \x{7d42}\x{5024} | $]u)
|
475
|
0 |
120 |
if ($Debug == 2) |
|
486
|
0 |
120 |
if ($Debug == 3) |
|
512
|
0 |
2433 |
if ($Debug == 4) |
|
552
|
502 |
364500 |
if ($date eq $split_date) |
|
587
|
1 |
7 |
unless (exists $$self{'q_noadjust'}) |
|
590
|
1 |
6 |
if (%noadjust) |
|
594
|
0 |
1 |
unless ($lowercase eq 'noadjust') |
|
597
|
1 |
0 |
if ($noadjust{$key} != 0) |