| line |
true |
false |
branch |
|
22
|
1 |
0 |
unless $self->site
|
|
23
|
1 |
0 |
unless $self->https_host
|
|
44
|
0 |
4 |
if (/^(?:jan|januar[iy])$/) { }
|
|
|
0 |
4 |
elsif (/^(?:[fp]eb|[fp]ebruar[iy])$/) { }
|
|
|
0 |
4 |
elsif (/^(?:mar|mrt|maret|march)$/) { }
|
|
|
0 |
4 |
elsif (/^(?:apr|april)$/) { }
|
|
|
2 |
2 |
elsif (/^(?:mei|may)$/) { }
|
|
|
2 |
0 |
elsif (/^(?:jun|jun[eiy])$/) { }
|
|
|
0 |
0 |
elsif (/^(?:jul|jul[iy])$/) { }
|
|
|
0 |
0 |
elsif (/^(?:agu|aug|ags?t|august|agustus)$/) { }
|
|
|
0 |
0 |
elsif (/^(?:sep|september)$/) { }
|
|
|
0 |
0 |
elsif (/^(?:o[kc]t|o[ct]ober)$/) { }
|
|
|
0 |
0 |
elsif (/^(?:no[pv]|no[pv]ember)$/) { }
|
|
|
0 |
0 |
elsif (/^(?:de[sc]|de[sc]ember)$/) { }
|
|
78
|
4 |
8 |
$neg ? :
|
|
86
|
0 |
0 |
if $self->logged_in
|
|
87
|
0 |
0 |
unless $self->username
|
|
88
|
0 |
0 |
unless $self->password
|
|
101
|
0 |
0 |
if $mech->content =~ /var err='(.+?)'/
|
|
102
|
0 |
0 |
if $mech->content =~ /=logout"/
|
|
115
|
0 |
0 |
unless $self->logged_in
|
|
152
|
0 |
0 |
unless $mech->content =~ /$re/
|
|
174
|
0 |
0 |
unless @bals
|
|
175
|
0 |
0 |
unless $account
|
|
177
|
0 |
0 |
if $_->{'account'} eq $account
|
|
191
|
0 |
0 |
$args{'account'} ? :
|
|
195
|
0 |
0 |
unless $mech->content =~ /<form/i
|
|
216
|
0 |
0 |
if ($delta_days > 0)
|
|
228
|
0 |
0 |
if ('DateTime'->compare($start_dt, $min_dt) == -1)
|
|
234
|
0 |
0 |
if ('DateTime'->compare($start_dt, $max_dt) == 1)
|
|
240
|
0 |
0 |
if ('DateTime'->compare($end_dt, $min_dt) == -1)
|
|
246
|
0 |
0 |
if ('DateTime'->compare($end_dt, $max_dt) == 1)
|
|
252
|
0 |
0 |
if ('DateTime'->compare($start_dt, $end_dt) == 1)
|
|
261
|
0 |
0 |
if ($args{'account'})
|
|
265
|
0 |
0 |
if ($args{'account'} eq $accts[$_])
|
|
290
|
0 |
0 |
if not $resp or $resp->[0] != 200
|
|
296
|
0 |
2 |
unless ($page =~ />Detail Informasi Mutasi Rekening</)
|
|
306
|
0 |
2 |
unless ($page =~ m[<label[^>]*>No\. Rekening</label></td>\s*<td[^>]*>(\d+)</td>]s)
|
|
313
|
0 |
2 |
unless ($page =~ m[<label[^>]*>Periode Mutasi Rekening</label></td>\s*<td>\s*(?<d1>\d{1,2})-(?<m1>\w+)-(?<y1>\d{4})\s*s/d\s*(?<d2>\d{1,2})-(?<m2>\w+)-(?<y2>\d{4})\s*</td>]s)
|
|
319
|
0 |
2 |
unless ($page =~ m[<label[^>]*>Mata Uang</label></td>\s*<td[^>]*>(\w+)</td>]s)
|
|
322
|
0 |
2 |
$1 eq 'Rp' ? :
|
|
324
|
0 |
2 |
unless ($page =~ m[<label[^>]*>Nama</label></td>\s*<td[^>]*>([^<]+?)\s*</td>]s)
|
|
331
|
0 |
2 |
unless ($page =~ m[<label[^>]*>Mutasi Kredit</label></td>\s*<td[^>]*>([^<]+)</td>]s)
|
|
337
|
0 |
2 |
unless ($page =~ m[<label[^>]*>Mutasi Debet</label></td>\s*<td[^>]*>([^<]+)</td>]s)
|
|
397
|
2 |
2 |
if (not $last_date or 'DateTime'->compare($last_date, $tx->{'date'})) { }
|