| line |
true |
false |
branch |
|
62
|
3 |
17 |
unless (all sub {
defined $_;
}
, $args{'contract_no'}, $args{'password'}) |
|
68
|
11 |
6 |
unless _check_agent($$self{'agent'}) |
|
81
|
11 |
6 |
unless defined $agent |
|
82
|
6 |
0 |
if (any sub {
$_ eq $agent;
}
, WWW::Mechanize::known_agent_aliases()) |
|
106
|
1 |
2 |
if ($login_error) { } |
|
|
0 |
2 |
elsif ($exists_unread_info) { } |
|
147
|
4 |
6 |
if ($key =~ /balance|withdrawal_limit/) |
|
169
|
0 |
1 |
if (_exists_element($page, _get_xpath('attention'))) |
|
175
|
0 |
1 |
if ($exists_info) |
|
180
|
0 |
1 |
$exists_info ? : |
|
202
|
3 |
18 |
if ($key =~ /date/) |
|
207
|
9 |
9 |
if ($key =~ /outlay|income|balance/) |
|
208
|
3 |
6 |
unless $columns{$key} |
|
229
|
1 |
2 |
if (not -d $save_dir) { } |
|
|
0 |
2 |
elsif (not $to_utf8 =~ /^[01]$/) { } |
|
241
|
0 |
2 |
if (_exists_element($page, _get_xpath('attention'))) { } |
|
|
0 |
2 |
elsif (_exists_element($page, _get_xpath('attention_i'))) { } |
|
249
|
0 |
2 |
if ($self->mech->is_html) |
|
257
|
2 |
0 |
unless $save_dir =~ m[/$] |
|
260
|
0 |
2 |
if (-e $filepath) |
|
264
|
1 |
1 |
if ($to_utf8 =~ /^[1]$/) |
|
279
|
0 |
0 |
unless return $response->filename |
|
285
|
0 |
15 |
unless (%args) |
|
294
|
8 |
7 |
if $period == 1 or $period == 2 |
|
301
|
4 |
3 |
if ($period == 3) { } |
|
|
3 |
0 |
elsif ($period == 4) { } |
|
303
|
1 |
3 |
unless (exists $args{'date'}) |
|
323
|
0 |
3 |
unless (exists $args{'from'}) |
|
332
|
0 |
3 |
if (!$from =~ /$regexp_date/ or !$to =~ /$regexp_date/) |
|
339
|
0 |
3 |
if ($t_from > $t_to) { } |
|
|
0 |
3 |
elsif ($t_to > $t) { } |
|
366
|
3 |
65 |
unless defined $value |
|
367
|
58 |
7 |
if ($value =~ /$regexp/) |
|
386
|
2 |
17 |
unless (defined $order) |
|
401
|
0 |
2 |
unless open my $fh, '>', $filepath |
|
403
|
0 |
2 |
unless print {$fh;} $content |
|
404
|
0 |
2 |
unless close $fh |
|
412
|
0 |
1 |
unless defined $transaction_key |
|
413
|
0 |
1 |
unless _check_transaction_key($transaction_key) |
|
414
|
0 |
1 |
unless ref $fields eq 'HASH' |
|
426
|
0 |
1 |
if ($mech->content =~ /IW052/) |
|
443
|
0 |
1 |
unless defined $transaction_key |
|
444
|
1 |
0 |
if (any sub {
$_ eq $transaction_key;
}
, transaction_id_keys()) |
|
460
|
3 |
5 |
unless $self->_logged_in |