| line |
true |
false |
branch |
|
16
|
1 |
0 |
unless $self->site
|
|
17
|
1 |
0 |
unless $self->https_host
|
|
37
|
0 |
0 |
if $self->logged_in
|
|
38
|
0 |
0 |
unless $self->username
|
|
39
|
0 |
0 |
unless $self->password
|
|
54
|
0 |
0 |
if $mech->content =~ /var err='(.+?)'/
|
|
55
|
0 |
0 |
if $mech->content =~ /=logout"/
|
|
68
|
0 |
0 |
unless $self->logged_in
|
|
109
|
0 |
0 |
if $errmsg
|
|
110
|
0 |
0 |
unless $mech->content =~ /$re/
|
|
134
|
0 |
0 |
if $ct =~ m[^<font.+?red><b>(.+)</b></font>]m
|
|
140
|
0 |
0 |
unless @bals
|
|
141
|
0 |
0 |
unless $account
|
|
143
|
0 |
0 |
if $_->{'account'} eq $account
|
|
158
|
0 |
0 |
$args{'account'} ? :
|
|
165
|
0 |
0 |
if $errmsg
|
|
166
|
0 |
0 |
unless $mech->content =~ /<form/i
|
|
188
|
0 |
0 |
if ($delta_days > 0)
|
|
200
|
0 |
0 |
if ('DateTime'->compare($start_dt, $min_dt) == -1)
|
|
206
|
0 |
0 |
if ('DateTime'->compare($start_dt, $max_dt) == 1)
|
|
212
|
0 |
0 |
if ('DateTime'->compare($end_dt, $min_dt) == -1)
|
|
218
|
0 |
0 |
if ('DateTime'->compare($end_dt, $max_dt) == 1)
|
|
224
|
0 |
0 |
if ('DateTime'->compare($start_dt, $end_dt) == 1)
|
|
233
|
0 |
0 |
if ($args{'account'})
|
|
237
|
0 |
0 |
if ($args{'account'} eq $accts[$_])
|
|
261
|
0 |
0 |
if $errmsg
|
|
267
|
0 |
0 |
if not $resp or $resp->[0] != 200
|
|
273
|
0 |
7 |
unless ($page =~ /(?:^\s*| )(?:INFORMASI REKENING - MUTASI REKENING|ACCOUNT INFORMATION - ACCOUNT STATEMENT)/im)
|
|
276
|
2 |
5 |
$page =~ /^(?:Kode Mata Uang|Currency)/m ? :
|
|
285
|
0 |
7 |
unless ($page =~ /\s*(?:(?:Nomor|No\.) [Rr]ekening|Account Number)\s*(?:<[^>]+>\s*)*[:\t]\s*(?:<[^>]+>\s*)*([\d-]+)/m)
|
|
293
|
0 |
7 |
unless ($page =~ m[(?:^\s*|>)(?:Periode|Period)\s*(?:<[^>]+>\s*)*[:\t]\s*(?:<[^>]+>\s*)*(\d\d)/(\d\d)/(\d\d\d\d) - (\d\d)/(\d\d)/(\d\d\d\d)]m)
|
|
299
|
0 |
7 |
unless ($page =~ /(?:^|>)(?:(?:Kode )?Mata Uang|Currency)\s*(?:<[^>]+>\s*)*[:\t]\s*(?:<[^>]+>\s*)*(Rp|[A-Z]+)/m)
|
|
302
|
1 |
6 |
$1 eq 'Rp' ? :
|
|
304
|
0 |
7 |
unless ($page =~ /(?:^|>)(?:Nama|Name)\s*(?:<[^>]+>\s*)*[:\t]\s*(?:<[^>]+>\s*)*([^<\015\012]+)/m)
|
|
309
|
0 |
7 |
unless ($page =~ /(?:^|>)(?:Mutasi Kredit|Total Credits)\s*(?:<[^>]+>\s*)*[:\t]\s*(?:<[^>]+>\s*)*([0-9,.]+)\.(\d\d)(?:\s*\t\s*(\d+))?/m)
|
|
313
|
1 |
6 |
if $3
|
|
315
|
0 |
7 |
unless ($page =~ /(?:^|>)(?:Mutasi Debet|Total Debits)\s*(?:<[^>]+>\s*)*[:\t]\s*(?:<[^>]+>\s*)*([0-9,.]+)\.(\d\d)(?:\s*\t\s*(\d+))?/m)
|
|
319
|
1 |
6 |
if $3
|
|
345
|
2 |
5 |
unless (@e)
|
|
372
|
0 |
93 |
if ($e->{'date'} =~ /NEXT/) { }
|
|
|
0 |
93 |
elsif ($e->{'date'} =~ /PEND/) { }
|
|
383
|
0 |
93 |
$mon < $stmt->{'start_date'}->month ? :
|
|
394
|
30 |
63 |
$e->{'crdb'} =~ /CR/ ? :
|
|
397
|
33 |
60 |
if (not $last_date or 'DateTime'->compare($last_date, $tx->{'date'})) { }
|
|
405
|
0 |
73 |
if ($self->_variant eq 'perorangan' and $tx->{'date'}->dow =~ /6|7/ and not $tx->{'description'} =~ /^(BIAYA ADM|BUNGA|(CR|DR) KOREKSI BUNGA|PAJAK BUNGA)\s*$/)
|
|
415
|
0 |
20 |
if ($self->_variant eq 'bisnis' and $tx->{'date'}->dow =~ /6|7/ and not $tx->{'description'} =~ /^(BIAYA ADM|BUNGA|(CR|DR) KOREKSI BUNGA|PAJAK BUNGA)\s*$/)
|