| line |
true |
false |
branch |
|
63
|
1 |
1 |
if ($args{'_page_content'}) { }
|
|
69
|
0 |
1 |
unless ($res->is_success)
|
|
85
|
0 |
30 |
unless $row->[0] =~ /\A[A-Z]{3}\z/
|
|
97
|
0 |
2 |
if (keys %currencies < 3)
|
|
104
|
1 |
1 |
unless ($page =~ m[<th[^>]*>e-Rate\*?<br />((\d+) (\w+) (\d{4}) / (\d+):(\d+) WIB)</th>])
|
|
108
|
0 |
1 |
unless (my $mon = Parse::Date::Month::ID::parse_date_month_id('text', $3))
|
|
116
|
0 |
2 |
unless ($page =~ m[<th[^>]*>TT Counter\*?<br />((\d+) (\w+) (\d{4}) / (\d+):(\d+) WIB)</th>])
|
|
120
|
0 |
2 |
unless (my $mon = Parse::Date::Month::ID::parse_date_month_id('text', $3))
|
|
128
|
0 |
2 |
unless ($page =~ m[<th[^>]*>Bank Notes\*?<br />((\d+) (\w+) (\d{4}) / (\d+):(\d+) WIB)</th>])
|
|
132
|
0 |
2 |
unless (my $mon = Parse::Date::Month::ID::parse_date_month_id('text', $3))
|
|
207
|
0 |
2 |
if (uc $to ne 'IDR')
|
|
212
|
0 |
2 |
unless ($_get_res)
|
|
214
|
0 |
0 |
unless ($Finance::Currency::Convert::BCA::_get_res->[0] == 200)
|
|
220
|
0 |
2 |
unless my $c = $Finance::Currency::Convert::BCA::_get_res->[2]{'currencies'}{uc $from}
|
|
223
|
1 |
1 |
if ($which =~ /\Aavg_(.+)/) { }
|