| line |
true |
false |
branch |
|
18
|
1 |
0 |
unless $self->site
|
|
19
|
1 |
0 |
unless $self->https_host
|
|
20
|
1 |
0 |
unless $self->mech
|
|
41
|
0 |
0 |
if $self->logged_in
|
|
42
|
0 |
0 |
unless $self->username
|
|
43
|
0 |
0 |
unless $self->password
|
|
58
|
0 |
0 |
if $mech->content =~ /var err='(.+?)'/
|
|
59
|
0 |
0 |
if $mech->content =~ /=logout"/
|
|
72
|
0 |
0 |
unless $self->logged_in
|
|
120
|
0 |
0 |
if $errmsg
|
|
121
|
0 |
0 |
unless $mech->content =~ /$re/
|
|
145
|
0 |
0 |
if $ct =~ m[^<font.+?red><b>(.+)</b></font>]m
|
|
151
|
0 |
0 |
unless @bals
|
|
152
|
0 |
0 |
unless $account
|
|
154
|
0 |
0 |
if $_->{'account'} eq $account
|
|
170
|
0 |
0 |
$args{'account'} ? :
|
|
178
|
0 |
0 |
if $errmsg
|
|
179
|
0 |
0 |
unless $mech->content =~ /<form/i
|
|
201
|
0 |
0 |
if ($delta_days > 0)
|
|
213
|
0 |
0 |
if ('DateTime'->compare($start_dt, $min_dt) == -1)
|
|
219
|
0 |
0 |
if ('DateTime'->compare($start_dt, $max_dt) == 1)
|
|
225
|
0 |
0 |
if ('DateTime'->compare($end_dt, $min_dt) == -1)
|
|
231
|
0 |
0 |
if ('DateTime'->compare($end_dt, $max_dt) == 1)
|
|
237
|
0 |
0 |
if ('DateTime'->compare($start_dt, $end_dt) == 1)
|
|
246
|
0 |
0 |
if ($args{'account'})
|
|
250
|
0 |
0 |
if ($args{'account'} eq $accts[$_])
|
|
274
|
0 |
0 |
if $errmsg
|
|
280
|
0 |
0 |
if not $resp or $resp->[0] != 200
|
|
286
|
0 |
7 |
unless ($page =~ /(?:^\s*| )(?:INFORMASI REKENING - MUTASI REKENING|ACCOUNT INFORMATION - ACCOUNT STATEMENT)/im)
|
|
289
|
2 |
5 |
$page =~ /^(?:Kode Mata Uang|Currency)/m ? :
|
|
298
|
0 |
7 |
unless ($page =~ /\s*(?:(?:Nomor|No\.) [Rr]ekening|Account Number)\s*(?:<[^>]+>\s*)*[:\t]\s*(?:<[^>]+>\s*)*([\d-]+)/m)
|
|
306
|
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)
|
|
312
|
0 |
7 |
unless ($page =~ /(?:^|>)(?:(?:Kode )?Mata Uang|Currency)\s*(?:<[^>]+>\s*)*[:\t]\s*(?:<[^>]+>\s*)*(Rp|[A-Z]+)/m)
|
|
315
|
1 |
6 |
$1 eq 'Rp' ? :
|
|
317
|
0 |
7 |
unless ($page =~ /(?:^|>)(?:Nama|Name)\s*(?:<[^>]+>\s*)*[:\t]\s*(?:<[^>]+>\s*)*([^<\015\012]+)/m)
|
|
322
|
0 |
7 |
unless ($page =~ /(?:^|>)(?:Mutasi Kredit|Total Credits)\s*(?:<[^>]+>\s*)*[:\t]\s*(?:<[^>]+>\s*)*([0-9,.]+)\.(\d\d)(?:\s*\t\s*(\d+))?/m)
|
|
326
|
1 |
6 |
if $3
|
|
328
|
0 |
7 |
unless ($page =~ /(?:^|>)(?:Mutasi Debet|Total Debits)\s*(?:<[^>]+>\s*)*[:\t]\s*(?:<[^>]+>\s*)*([0-9,.]+)\.(\d\d)(?:\s*\t\s*(\d+))?/m)
|
|
332
|
1 |
6 |
if $3
|
|
358
|
2 |
5 |
unless (@e)
|
|
385
|
0 |
93 |
if ($e->{'date'} =~ /NEXT/) { }
|
|
|
0 |
93 |
elsif ($e->{'date'} =~ /PEND/) { }
|
|
396
|
0 |
93 |
$mon < $stmt->{'start_date'}->month ? :
|
|
407
|
30 |
63 |
$e->{'crdb'} =~ /CR/ ? :
|
|
410
|
33 |
60 |
if (not $last_date or 'DateTime'->compare($last_date, $tx->{'date'})) { }
|
|
418
|
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*$/)
|
|
428
|
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*$/)
|
|
454
|
0 |
0 |
$args{'account'} ? :
|
|
462
|
0 |
0 |
if $errmsg
|
|
463
|
0 |
0 |
unless $mech->content =~ /<form/i
|
|
480
|
0 |
0 |
if $errmsg
|