| 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 =~ / |
|
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[]*>No\. Rekening | \s*]*>(\d+)]s)
|
313
|
0 |
2 |
unless ($page =~ m[]*>Periode Mutasi Rekening | \s*\s*(?\d{1,2})-(?\w+)-(?\d{4})\s*s/d\s*(?\d{1,2})-(?\w+)-(?\d{4})\s* | ]s)
|
319
|
0 |
2 |
unless ($page =~ m[]*>Mata Uang | \s*]*>(\w+)]s)
|
322
|
0 |
2 |
$1 eq 'Rp' ? : |
|
324
|
0 |
2 |
unless ($page =~ m[]*>Nama | \s*]*>([^<]+?)\s*]s)
|
331
|
0 |
2 |
unless ($page =~ m[]*>Mutasi Kredit | \s*]*>([^<]+)]s)
|
337
|
0 |
2 |
unless ($page =~ m[]*>Mutasi Debet | \s*]*>([^<]+)]s)
|
397
|
2 |
2 |
if (not $last_date or 'DateTime'->compare($last_date, $tx->{'date'})) { } |