| line |
true |
false |
branch |
|
97
|
2 |
0 |
if defined $args{'BLZFILE'} |
|
99
|
0 |
2 |
unless -f $$self{'BLZFILE'} |
|
100
|
0 |
2 |
if $Business::DE::KontoCheck::CACHE_ALL |
|
101
|
0 |
2 |
if ($$self{'MODE_BLZ_FILE'} eq 'MINIMAL') |
|
112
|
212 |
0 |
if defined $args{'KONTONR'} |
|
113
|
212 |
0 |
if defined $args{'BLZ'} |
|
116
|
0 |
212 |
unless ($self->_validBLZ($$self{'BLZ'}) and $self->_validKONTONR($$self{'KONTONR'})) |
|
124
|
212 |
0 |
if ($result) |
|
127
|
0 |
212 |
if $$self{'ERRORCODES'} |
|
129
|
71 |
141 |
unless ($self->_pruefe($konto)) |
|
141
|
0 |
212 |
unless defined $blz |
|
142
|
0 |
212 |
if $blz =~ tr/0-9// != 8 |
|
151
|
0 |
212 |
unless defined $kontonr |
|
152
|
0 |
212 |
if $kontonr =~ /\D/ |
|
160
|
0 |
0 |
unless open BLZ, "<$$self{'BLZFILE'}" |
|
161
|
0 |
0 |
if ($mode eq 'BANK') { } |
|
|
0 |
0 |
elsif ($mode eq 'POST') { } |
|
172
|
0 |
0 |
if $D_BLZ eq '00000000' |
|
177
|
0 |
0 |
if (my($D_BLZ, $D_INST, $D_PLZ, $D_ORT, $D_METHOD, $REST) = $line =~ /^(\d{8})(.{58})(\d{5})(.{30})(\d\d)(\d)/) |
|
197
|
1 |
212 |
unless ($konto) |
|
201
|
213 |
0 |
unless ($mode eq 'MINIMAL') |
|
202
|
0 |
213 |
unless open BLZ, "<$$self{'BLZFILE'}" |
|
204
|
213 |
7720 |
if $line =~ /^$blz/ or $mode eq 'BANK' and $line =~ /^\d{8}.$blz/ |
|
206
|
0 |
213 |
unless ($line) |
|
212
|
68 |
145 |
if (not $Business::DE::KontoCheck::CACHE_ON && $$Business::DE::KontoCheck::cache{$blz}{'METHOD'}) { } |
|
213
|
0 |
68 |
if ($mode eq 'POST') { } |
|
|
68 |
0 |
elsif ($mode eq 'BANK') { } |
|
|
0 |
0 |
elsif ($$self{'MODE_BLZ_FILE'} eq 'MINIMAL') { } |
|
214
|
0 |
0 |
if (my($D_BLZ, $D_INST, $D_PLZ, $D_ORT, $D_METHOD, $REST) = $line =~ /^(\d{8})(.{58})(\d{5})(.{30})(\d\d)(\d)/) { } |
|
220
|
0 |
0 |
if $Business::DE::KontoCheck::CACHE_ON |
|
234
|
0 |
68 |
if ($D_BLZ ne $blz) |
|
240
|
68 |
0 |
if $Business::DE::KontoCheck::CACHE_ON |
|
246
|
0 |
0 |
unless ($D_BLZ) |
|
259
|
213 |
0 |
if ($result) |
|
268
|
556 |
97 |
if length $num == 1 |
|
282
|
141 |
71 |
if (exists $$check_code{$m}) { } |
|
288
|
0 |
141 |
if ($m == 13) { } |
|
|
0 |
141 |
elsif ($m eq '15') { } |
|
|
0 |
141 |
elsif ($m eq '14') { } |
|
|
0 |
141 |
elsif ($m eq '23') { } |
|
|
3 |
138 |
elsif ($m eq '26') { } |
|
|
1 |
137 |
elsif ($m eq '27' and $k > 999999999) { } |
|
|
4 |
133 |
elsif ($m eq '28' or $m eq '34') { } |
|
|
6 |
127 |
elsif ($m eq '35') { } |
|
|
3 |
124 |
elsif ($m eq '41' and substr(sprintf('%010s', $k), 3, 1) == 9) { } |
|
|
4 |
120 |
elsif ($m eq '45' and substr(sprintf('%010s', $k), 0, 1) == 0 || substr(sprintf('%010s', $k), 4, 1) == 1) { } |
|
|
0 |
120 |
elsif ($m == 49) { } |
|
|
3 |
117 |
elsif ($m == 50) { } |
|
|
5 |
112 |
elsif ($m == 51) { } |
|
|
1 |
111 |
elsif ($m == 52 or $m == 53) { } |
|
|
1 |
110 |
elsif ($m == 56 and $k =~ /^9\d{9}/) { } |
|
|
8 |
102 |
elsif ($m == 57) { } |
|
|
0 |
102 |
elsif ($m == 59) { } |
|
|
2 |
100 |
elsif ($m == 61) { } |
|
|
2 |
98 |
elsif ($m == 63) { } |
|
|
2 |
96 |
elsif ($m == 65) { } |
|
|
3 |
93 |
elsif ($m == 68) { } |
|
|
3 |
90 |
elsif ($m == 69) { } |
|
|
0 |
90 |
elsif ($m == 70) { } |
|
|
2 |
88 |
elsif ($m == 73) { } |
|
|
2 |
86 |
elsif ($m == 74) { } |
|
292
|
0 |
0 |
unless ($pruefziffer == $ziffer) |
|
322
|
1 |
2 |
if $k =~ s/^00// |
|
348
|
6 |
0 |
if substr($k, -2, 1) eq substr($k, -2, 1) |
|
371
|
0 |
0 |
unless ($ziffer == $pruefziffer) |
|
386
|
0 |
3 |
unless ($ziffer == $pruefziffer) |
|
396
|
4 |
1 |
if (not substr($k, 2, 2) eq '99') { } |
|
401
|
1 |
3 |
unless ($ziffer == $pruefziffer) |
|
410
|
1 |
3 |
unless ($ziffer == $pruefziffer) |
|
433
|
0 |
1 |
if ($k =~ /^9\d{9}$/) { } |
|
442
|
1 |
0 |
if ($m == 52) { } |
|
476
|
0 |
1 |
if $ziffer == 10 |
|
477
|
0 |
1 |
if $ziffer == 11 |
|
483
|
4 |
4 |
if ($d <= 50 or $d == 91 or $d >= 96 and $d <= 99 or $k =~ /^[78]{6}/) { } |
|
500
|
0 |
0 |
if length $k < 9 |
|
505
|
1 |
1 |
if (substr($k, 8, 1) == 8) { } |
|
514
|
0 |
2 |
if $ziffer == 10 |
|
518
|
1 |
1 |
if ($k =~ /^000/) |
|
525
|
1 |
1 |
unless (substr($k, 8, 1) eq '9') |
|
533
|
1 |
2 |
if (length $k == 10) { } |
|
|
0 |
2 |
elsif ($k >= 400000000 and $k <= 499999999) { } |
|
549
|
1 |
1 |
if ($ziffer != $pruefziffer) |
|
558
|
0 |
3 |
if ($k ge 9300000000 and $k lt 9400000000) { } |
|
|
1 |
2 |
elsif ($k ge 9700000000 and $k lt 9800000000) { } |
|
577
|
1 |
1 |
unless ($ziffer == $pruefziffer) |
|
589
|
0 |
0 |
if substr($k, 3, 1) == 5 or substr($k, 3, 2) eq 69 |
|
596
|
1 |
1 |
if (substr($k, 2, 1) == 9) { } |
|
605
|
1 |
0 |
if substr($k, 2, 1) != 9 |
|
616
|
1 |
1 |
unless ($ziffer == $pruefziffer) |
|
628
|
0 |
141 |
unless defined $ziffer |
|
630
|
141 |
0 |
$ziffer == $pruefziffer ? : |
|
648
|
1 |
183 |
if ($$args{'M'} == 52 or $$args{'M'} == 53) |
|
652
|
650 |
1192 |
if $$args{'METHOD'} eq 'QUER' |
|
654
|
0 |
1842 |
if $$args{'METHOD'} eq 'ONES' |
|
670
|
0 |
0 |
unless my $result = $self->get_info_for_blz($blz, $konto) |
|
690
|
1 |
31 |
if $ziffer == 10 |
|
698
|
0 |
6 |
$ziffer == 10 ? : |
|
704
|
0 |
4 |
if $rest == 1 |
|
705
|
1 |
3 |
if $rest == 0 |
|
714
|
6 |
49 |
if ($rest == 1) { } |
|
|
6 |
43 |
elsif ($rest == 0) { } |
|
726
|
0 |
0 |
unless $k > 60000 |
|
740
|
0 |
0 |
if ($rest == 1) { } |
|
|
0 |
0 |
elsif ($rest == 0) { } |
|
754
|
0 |
0 |
if $ziffer == 10 |
|
762
|
0 |
0 |
if $rest == 1 |
|
763
|
0 |
0 |
if $rest == 0 |
|
771
|
0 |
0 |
if ($rest == 1) { } |
|
|
0 |
0 |
elsif ($rest == 0) { } |
|
788
|
1 |
0 |
if ($ziffer == 0) { } |
|
794
|
1 |
0 |
if ($ziffer == $pruef) { } |
|
817
|
0 |
0 |
if ($k =~ /^[3456]/) |
|
820
|
0 |
0 |
if (substr($k, 0, 1) == 9) |
|
841
|
0 |
0 |
if ($rest == 0) { } |
|
|
0 |
0 |
elsif ($rest == 1) { } |
|
846
|
0 |
0 |
unless substr($k, 1, 1) =~ /^[89]$/ |
|
886
|
0 |
0 |
if $ziffer == 10 |
|
915
|
1 |
3 |
if $rest1 == 10 |