Branch Coverage

KontoCheck.xs
Criterion Covered Total %
branch 219 912 24.0


line true false branch
95 0 0 if(items<10)Perl_croak(aTHX_ "Usage: Business::KontoCheck::kto_check_regel_dbg_i(blz,kto,blz2,kto2,bic,regel,methode,pz_methode,pz,pz_pos)");
98 0 0 SvSETMAGIC(ST(2));
100 0 0 SvSETMAGIC(ST(3));
102 0 0 SvSETMAGIC(ST(4));
104 0 0 SvSETMAGIC(ST(5));
106 0 0 SvSETMAGIC(ST(6));
108 0 0 SvSETMAGIC(ST(7));
110 0 0 SvSETMAGIC(ST(8));
112 0 0 SvSETMAGIC(ST(9));
308 0 2 if(keine_iban_berechnung)lut_keine_iban_berechnung(keine_iban_berechnung,outputname,set);
318 0 0 if(items!=2)Perl_croak(aTHX_ "Usage: Business::KontoCheck::lut_filialen(blz)");
343 0 14 if(items!=14)Perl_croak(aTHX_ "Usage: Business::KontoCheck::lut_multiple_i(blz, filiale, cnt, "
347 0 14 if(RETVAL>0 || RETVAL==LUT2_PARTIAL_OK){
0 0 if(RETVAL>0 || RETVAL==LUT2_PARTIAL_OK){
349 0 14 SvSETMAGIC(ST(2));
351 0 14 SvSETMAGIC(ST(3));
353 0 14 SvSETMAGIC(ST(4));
355 0 14 SvSETMAGIC(ST(5));
357 0 14 SvSETMAGIC(ST(6));
359 0 14 SvSETMAGIC(ST(7));
361 0 14 SvSETMAGIC(ST(8));
363 0 14 SvSETMAGIC(ST(9));
365 0 14 SvSETMAGIC(ST(10));
367 0 14 SvSETMAGIC(ST(11));
369 0 14 SvSETMAGIC(ST(12));
371 0 14 SvSETMAGIC(ST(13));
375 0 0 SvSETMAGIC(ST(2));
385 0 0 if(items<1 || items>2)Perl_croak(aTHX_ "Usage: Business::KontoCheck::pz2str(pz[,retval])");
0 0 if(items<1 || items>2)Perl_croak(aTHX_ "Usage: Business::KontoCheck::pz2str(pz[,retval])");
388 0 0 if(items==2){
390 0 0 SvSETMAGIC(ST(1));
401 0 0 if(items==1)
403 0 0 else if(items==2 || items==3)
0 0 else if(items==2 || items==3)
409 0 0 if(items==3){
411 0 0 SvSETMAGIC(ST(2));
423 0 0 if(items!=4)Perl_croak(aTHX_ "Usage: Business::KontoCheck::bic_info(bic,mode,anzahl,start_idx))");
427 0 0 SvSETMAGIC(ST(2));
429 0 0 SvSETMAGIC(ST(3));
441 90 287 if(items==2)
443 8 279 else if(items==3 || items==4)
8 0 else if(items==3 || items==4)
449 8 369 if(items==4){
451 0 8 SvSETMAGIC(ST(3));
466 0 0 if(items==2)
468 0 0 else if(items==3 || items==4)
0 0 else if(items==3 || items==4)
474 0 0 if(items==4){
476 0 0 SvSETMAGIC(ST(3));
491 0 137 if(items==2)
493 0 137 else if(items==3 || items==4)
0 0 else if(items==3 || items==4)
499 0 137 if(items==4){
501 0 0 SvSETMAGIC(ST(3));
516 90 279 if(items==2)
518 0 279 else if(items==3 || items==4)
0 0 else if(items==3 || items==4)
524 0 369 if(items==4){
526 0 0 SvSETMAGIC(ST(3));
541 0 0 if(items==2)
543 0 0 else if(items==3 || items==4)
0 0 else if(items==3 || items==4)
549 0 0 if(items==4){
551 0 0 SvSETMAGIC(ST(3));
566 0 0 if(items==2)
568 0 0 else if(items==3 || items==4)
0 0 else if(items==3 || items==4)
574 0 0 if(items==4){
576 0 0 SvSETMAGIC(ST(3));
591 0 0 if(items==2)
593 0 0 else if(items==3 || items==4)
0 0 else if(items==3 || items==4)
599 0 0 if(items==4){
601 0 0 SvSETMAGIC(ST(3));
616 0 0 if(items==2)
618 0 0 else if(items==3 || items==4)
0 0 else if(items==3 || items==4)
624 0 0 if(items==4){
626 0 0 SvSETMAGIC(ST(3));
641 0 0 if(items==2)
643 0 0 else if(items==3 || items==4)
0 0 else if(items==3 || items==4)
649 0 0 if(items==4){
651 0 0 SvSETMAGIC(ST(3));
666 0 0 if(items==2)
668 0 0 else if(items==3 || items==4)
0 0 else if(items==3 || items==4)
674 0 0 if(items==4){
676 0 0 SvSETMAGIC(ST(3));
691 0 0 if(items==2)
693 0 0 else if(items==3 || items==4)
0 0 else if(items==3 || items==4)
699 0 0 if(items==4){
701 0 0 SvSETMAGIC(ST(3));
717 0 0 if(items==2)
719 0 0 else if(items==3){
723 0 0 else if(items==4 || items==5){
0 0 else if(items==4 || items==5){
731 0 0 if(items==5){
733 0 0 SvSETMAGIC(ST(4));
748 0 0 if(items==2)
750 0 0 else if(items==3){
754 0 0 else if(items==4 || items==5){
0 0 else if(items==4 || items==5){
762 0 0 if(items==5){
764 0 0 SvSETMAGIC(ST(4));
779 0 0 if(items==2)
781 0 0 else if(items==3){
785 0 0 else if(items==4 || items==5){
0 0 else if(items==4 || items==5){
793 0 0 if(items==5){
795 0 0 SvSETMAGIC(ST(4));
810 0 0 if(items==2)
812 0 0 else if(items==3){
816 0 0 else if(items==4 || items==5){
0 0 else if(items==4 || items==5){
824 0 0 if(items==5){
826 0 0 SvSETMAGIC(ST(4));
841 0 0 if(items==2)
843 0 0 else if(items==3){
847 0 0 else if(items==4 || items==5){
0 0 else if(items==4 || items==5){
855 0 0 if(items==5){
857 0 0 SvSETMAGIC(ST(4));
872 0 0 if(items==2)
874 0 0 else if(items==3){
878 0 0 else if(items==4 || items==5){
0 0 else if(items==4 || items==5){
886 0 0 if(items==5){
888 0 0 SvSETMAGIC(ST(4));
903 0 0 if(items==2)
905 0 0 else if(items==3){
909 0 0 else if(items==4 || items==5){
0 0 else if(items==4 || items==5){
917 0 0 if(items==5){
919 0 0 SvSETMAGIC(ST(4));
934 0 0 if(items==2)
936 0 0 else if(items==3){
940 0 0 else if(items==4 || items==5){
0 0 else if(items==4 || items==5){
948 0 0 if(items==5){
950 0 0 SvSETMAGIC(ST(4));
965 0 0 if(items==2)
967 0 0 else if(items==3){
971 0 0 else if(items==4 || items==5){
0 0 else if(items==4 || items==5){
979 0 0 if(items==5){
981 0 0 SvSETMAGIC(ST(4));
996 0 0 if(items==2)
998 0 0 else if(items==3){
1002 0 0 else if(items==4 || items==5){
0 0 else if(items==4 || items==5){
1010 0 0 if(items==5){
1012 0 0 SvSETMAGIC(ST(4));
1027 0 0 if(items==2)
1029 0 0 else if(items==3){
1033 0 0 else if(items==4 || items==5){
0 0 else if(items==4 || items==5){
1041 0 0 if(items==5){
1043 0 0 SvSETMAGIC(ST(4));
1057 0 0 if(items<2 || items>3)
0 0 if(items<2 || items>3)
1061 0 0 if(items==3){
1063 0 0 SvSETMAGIC(ST(2));
1076 0 0 if(items<2 || items>3)
0 0 if(items<2 || items>3)
1080 0 0 if(items==3){
1082 0 0 SvSETMAGIC(ST(2));
1095 0 0 if(items<2 || items>3)
0 0 if(items<2 || items>3)
1099 0 0 if(items==3){
1101 0 0 SvSETMAGIC(ST(2));
1114 0 0 if(items<2 || items>3)
0 0 if(items<2 || items>3)
1118 0 0 if(items==3){
1120 0 0 SvSETMAGIC(ST(2));
1133 0 0 if(items<2 || items>3)
0 0 if(items<2 || items>3)
1137 0 0 if(items==3){
1139 0 0 SvSETMAGIC(ST(2));
1152 0 0 if(items<2 || items>3)
0 0 if(items<2 || items>3)
1156 0 0 if(items==3){
1158 0 0 SvSETMAGIC(ST(2));
1171 0 0 if(items<2 || items>3)
0 0 if(items<2 || items>3)
1175 0 0 if(items==3){
1177 0 0 SvSETMAGIC(ST(2));
1190 0 0 if(items<2 || items>3)
0 0 if(items<2 || items>3)
1194 0 0 if(items==3){
1196 0 0 SvSETMAGIC(ST(2));
1209 0 0 if(items<2 || items>3)
0 0 if(items<2 || items>3)
1213 0 0 if(items==3){
1215 0 0 SvSETMAGIC(ST(2));
1228 0 0 if(items<2 || items>3)
0 0 if(items<2 || items>3)
1232 0 0 if(items==3){
1234 0 0 SvSETMAGIC(ST(2));
1247 0 0 if(items<2 || items>3)
0 0 if(items<2 || items>3)
1251 0 0 if(items==3){
1253 0 0 SvSETMAGIC(ST(2));
1269 0 0 if(items==2)
1271 0 0 else if(items==3 || items==4)
0 0 else if(items==3 || items==4)
1277 0 0 if(items==4){
1279 0 0 SvSETMAGIC(ST(3));
1294 0 0 if(items==2)
1296 0 0 else if(items==3 || items==4)
0 0 else if(items==3 || items==4)
1302 0 0 if(items==4){
1304 0 0 SvSETMAGIC(ST(3));
1319 0 0 if(items==2)
1321 0 0 else if(items==3 || items==4)
0 0 else if(items==3 || items==4)
1327 0 0 if(items==4){
1329 0 0 SvSETMAGIC(ST(3));
1344 0 0 if(items==2)
1346 0 0 else if(items==3 || items==4)
0 0 else if(items==3 || items==4)
1352 0 0 if(items==4){
1354 0 0 SvSETMAGIC(ST(3));
1369 0 0 if(items==2)
1371 0 0 else if(items==3 || items==4)
0 0 else if(items==3 || items==4)
1377 0 0 if(items==4){
1379 0 0 SvSETMAGIC(ST(3));
1394 0 0 if(items==2)
1396 0 0 else if(items==3 || items==4)
0 0 else if(items==3 || items==4)
1402 0 0 if(items==4){
1404 0 0 SvSETMAGIC(ST(3));
1419 0 0 if(items==2)
1421 0 0 else if(items==3 || items==4)
0 0 else if(items==3 || items==4)
1427 0 0 if(items==4){
1429 0 0 SvSETMAGIC(ST(3));
1444 0 0 if(items==2)
1446 0 0 else if(items==3 || items==4)
0 0 else if(items==3 || items==4)
1452 0 0 if(items==4){
1454 0 0 SvSETMAGIC(ST(3));
1469 0 0 if(items==2)
1471 0 0 else if(items==3 || items==4)
0 0 else if(items==3 || items==4)
1477 0 0 if(items==4){
1479 0 0 SvSETMAGIC(ST(3));
1494 0 0 if(items==2)
1496 0 0 else if(items==3 || items==4)
0 0 else if(items==3 || items==4)
1502 0 0 if(items==4){
1504 0 0 SvSETMAGIC(ST(3));
1519 0 0 if(items==2)
1521 0 0 else if(items==3 || items==4)
0 0 else if(items==3 || items==4)
1527 0 0 if(items==4){
1529 0 0 SvSETMAGIC(ST(3));
1541 0 5 if(items!=1)Perl_croak(aTHX_ "Usage: Business::KontoCheck::retval2txt(ret)");
1553 0 0 if(items!=1)Perl_croak(aTHX_ "Usage: Business::KontoCheck::retval2txt(ret)");
1564 0 0 if(items!=1)Perl_croak(aTHX_ "Usage: Business::KontoCheck::retval2iso(ret)");
1576 0 0 if(items!=1)Perl_croak(aTHX_ "Usage: Business::KontoCheck::retval2iso(ret)");
1587 0 0 if(items!=1)Perl_croak(aTHX_ "Usage: Business::KontoCheck::retval2txt_short(ret)");
1599 0 42 if(items!=1)Perl_croak(aTHX_ "Usage: Business::KontoCheck::retval2txt_short(ret)");
1610 0 0 if(items!=1)Perl_croak(aTHX_ "Usage: Business::KontoCheck::retval2html(ret)");
1622 0 0 if(items!=1)Perl_croak(aTHX_ "Usage: Business::KontoCheck::retval2html(ret)");
1633 0 0 if(items!=1)Perl_croak(aTHX_ "Usage: Business::KontoCheck::retval2utf8(ret)");
1645 0 0 if(items!=1)Perl_croak(aTHX_ "Usage: Business::KontoCheck::retval2utf8(ret)");
1656 0 0 if(items!=1)Perl_croak(aTHX_ "Usage: Business::KontoCheck::retval2dos(ret)");
1668 0 0 if(items!=1)Perl_croak(aTHX_ "Usage: Business::KontoCheck::retval2dos(ret)");
1706 0 1 if(items!=4)Perl_croak(aTHX_ "Usage: Business::KontoCheck::current_lutfile_name_i(want_array,set,level,retval)");
1707 1 0 if(want_array)
1711 0 1 if(ret<0)RETVAL="";
1712 1 0 if(want_array){
1714 0 1 SvSETMAGIC(ST(1));
1716 0 1 SvSETMAGIC(ST(2));
1718 0 1 SvSETMAGIC(ST(3));
1734 0 3 if(items!=7)Perl_croak(aTHX_ "Usage: Business::KontoCheck::lut_info_i(lut_name,want_array,info1,valid1,info2,valid2,lut_dir)");
1735 0 3 if(want_array<0)Perl_croak(aTHX_ "Usage: Business::KontoCheck::lut_info(lut_name)");
1736 3 0 if(want_array){
1739 0 3 if(!info1)info1="";
1740 2 1 if(!info2)info2="";
1746 0 3 if(ret
1748 3 0 else if(valid1==LUT2_VALID || valid2==LUT2_VALID)
0 3 else if(valid1==LUT2_VALID || valid2==LUT2_VALID)
1750 0 3 else if(valid1==LUT1_SET_LOADED)
1752 2 1 else if(valid1==LUT2_NO_VALID_DATE || valid2==LUT2_NO_VALID_DATE)
0 2 else if(valid1==LUT2_NO_VALID_DATE || valid2==LUT2_NO_VALID_DATE)
1758 0 3 SvSETMAGIC(ST(2));
1760 0 3 SvSETMAGIC(ST(3));
1762 0 3 SvSETMAGIC(ST(4));
1764 0 3 SvSETMAGIC(ST(5));
1766 0 3 SvSETMAGIC(ST(6));
1768 3 0 if(want_array){
1775 3 0 if(*info1)kc_free(info1);
1776 1 2 if(*info2)kc_free(info2);
1777 3 0 if(*dptr)kc_free(dptr);
1799 0 0 if(items!=1)Perl_croak(aTHX_ "Usage: Business::KontoCheck::ci_check(ci)");
1822 164 0 if(ret){
1824 0 164 SvSETMAGIC(ST(1));
1842 0 317 SvSETMAGIC(ST(1));
1861 1 0 if(items>1)
1884 1 0 if(lut_filename){
1886 0 1 SvSETMAGIC(ST(1));
1889 1 0 if(lut_blocks_ok){
1891 0 1 SvSETMAGIC(ST(2));
1894 1 0 if(lut_blocks_fehler){
1896 0 1 SvSETMAGIC(ST(3));
1914 0 2440 if(items!=9){
1920 2427 13 if(papier){
1921 53394 12135 for(ptr=papier,dptr=iban;*ptr;ptr++)if(*ptr!=' ')*dptr++=*ptr;
65529 2427 for(ptr=papier,dptr=iban;*ptr;ptr++)if(*ptr!=' ')*dptr++=*ptr;
1924 0 2427 SvSETMAGIC(ST(2));
1926 0 2427 SvSETMAGIC(ST(3));
1929 2440 0 if(bic){
1931 0 2440 SvSETMAGIC(ST(4));
1935 0 2440 SvSETMAGIC(ST(5));
1942 0 2440 SvSETMAGIC(ST(6));
1944 0 2440 SvSETMAGIC(ST(7));
1946 0 2440 SvSETMAGIC(ST(8));
1947 2439 1 RETVAL=ret;
1960 0 0 if(items!=4){
1967 0 0 SvSETMAGIC(ST(1));
1968 0 0 if(ret>0){
1970 0 0 SvSETMAGIC(ST(2));
1972 0 0 SvSETMAGIC(ST(3));
1989 80 0 if(items<1 || items>3)Perl_croak(aTHX_ "Usage: Business::KontoCheck::ipi_gen(zweck[,zweck_edv[,zweck_papier]])");
0 80 if(items<1 || items>3)Perl_croak(aTHX_ "Usage: Business::KontoCheck::ipi_gen(zweck[,zweck_edv[,zweck_papier]])");
1991 80 0 if(items>=2){
1993 0 80 SvSETMAGIC(ST(1));
1995 80 0 if(items==3){
1997 0 80 SvSETMAGIC(ST(2));
2014 10 0 if(items<2 || items>5)Perl_croak(aTHX_ "Usage: Business::KontoCheck::lut_suche_volltext(suchworte[,retval[,uniq[,sort]]])");
0 10 if(items<2 || items>5)Perl_croak(aTHX_ "Usage: Business::KontoCheck::lut_suche_volltext(suchworte[,retval[,uniq[,sort]]])");
2016 10 0 if(items>=3){
2018 0 10 SvSETMAGIC(ST(2));
2022 4 6 if(items>=4)uniq=(int)SvIV(ST(3));
2023 2 8 if(items>=5)sort=(int)SvIV(ST(4));
2024 2 8 if(uniq>0)
2026 8 0 else if(uniq<=0 && sort>0)
2 6 else if(uniq<=0 && sort>0)
2028 6 0 else if(uniq<0 && sort<0)
6 0 else if(uniq<0 && sort<0)
2030 4 6 if(uniq) /* bei uniq>0 sortieren, uniq>1 sortieren + uniq */
2039 10 0 if(anzahl2){
2042 288 10 for(i=0;i
2046 8 2 if(want_array){ /* die drei nächsten Arrays werden nur bei Bedarf gefüllt */
2050 8 0 if(anzahl2){
2054 4 4 if(cnt_o)av_unshift(cnt_array,anzahl2);
2055 64 8 for(i=0;i
2056 227 8 for(i=0;i
2058 105 122 if(cnt_o)av_store(cnt_array,i,newSViv(cnt_o[i]));
2061 4 4 if(uniq){
2068 0 8 XPUSHs(blz_array_p);
2069 0 8 XPUSHs(zweigstelle_p);
2070 0 8 XPUSHs(vals_p);
2071 0 8 XPUSHs(sv_2mortal(newSViv(ret)));
2072 0 8 XPUSHs(cnt_array_p);
2076 0 2 if(uniq){
2080 0 2 XPUSHs(blz_array_p);
2118 12 0 if(items>4){ /* retval zurückgeben */
2120 0 12 SvSETMAGIC(ST(4));
2124 12 0 if(anzahl){
2127 240 12 for(i=0;i
2131 6 6 if(want_array){ /* das nächste Array wird nur bei Bedarf gefüllt */
2133 6 0 if(anzahl){
2136 120 6 for(i=0;i
2141 0 6 XPUSHs(blz_array_p);
2142 0 6 XPUSHs(zweigstelle_p);
2143 0 6 XPUSHs(sv_2mortal(newSViv(ret)));
2149 0 6 XPUSHs(blz_array_p);
2183 35 0 if(items>2 && items<7)
35 0 if(items>2 && items<7)
2186 0 0 if(fkt)
2209 35 0 if(items>3){
2211 0 35 SvSETMAGIC(ST(3));
2214 14 21 if(items>4)uniq=(int)SvIV(ST(4));
2215 7 28 if(items>5)sort=(int)SvIV(ST(5));
2216 7 28 if(uniq>0)
2218 28 0 else if(uniq<=0 && sort>0)
7 21 else if(uniq<=0 && sort>0)
2220 21 0 else if(uniq<0 && sort<0)
21 0 else if(uniq<0 && sort<0)
2222 14 21 if(uniq) /* bei uniq>0 sortieren, uniq>1 sortieren + uniq */
2230 35 0 if(anzahl2){
2233 995 35 for(i=0;i
2237 28 7 if(want_array){ /* die drei nächsten Arrays werden nur bei Bedarf gefüllt */
2241 28 0 if(anzahl2){
2245 14 14 if(cnt_o)av_unshift(cnt_array,anzahl2);
2246 778 28 for(i=0;i
2249 344 434 if(cnt_o)av_store(cnt_array,i,newSViv(cnt_o[i]));
2252 14 14 if(uniq){
2259 0 28 XPUSHs(blz_array_p);
2260 0 28 XPUSHs(zweigstelle_p);
2261 0 28 XPUSHs(vals_p);
2262 0 28 XPUSHs(sv_2mortal(newSViv(ret)));
2263 0 28 XPUSHs(cnt_array_p);
2267 0 7 if(uniq){
2271 0 7 XPUSHs(blz_array_p);
2340 3 12 if(uniq>0)
2342 12 0 else if(uniq<=0 && sort>0)
3 9 else if(uniq<=0 && sort>0)
2344 9 0 else if(uniq<0 && sort<0)
9 0 else if(uniq<0 && sort<0)
2346 6 9 if(uniq) /* bei uniq>0 sortieren, uniq>1 sortieren + uniq */
2353 15 0 if(items>=5){
2355 0 15 SvSETMAGIC(ST(4));
2359 15 0 if(anzahl2){
2362 2014 15 for(i=0;i
2366 12 3 if(want_array){ /* die drei nächsten Arrays werden nur bei Bedarf gefüllt */
2370 12 0 if(anzahl2){
2374 6 6 if(cnt_o)av_unshift(cnt_array,anzahl2);
2375 1563 12 for(i=0;i
2378 661 902 if(cnt_o)av_store(cnt_array,i,newSViv(cnt_o[i]));
2381 6 6 if(uniq){
2389 0 12 XPUSHs(blz_array_p);
2390 0 12 XPUSHs(zweigstelle_p);
2391 0 12 XPUSHs(vals_p);
2392 0 12 XPUSHs(sv_2mortal(newSViv(ret)));
2393 0 12 XPUSHs(cnt_array_p);
2397 0 3 if(uniq){
2401 0 3 XPUSHs(blz_array_p);
2422 0 0 if(items!=4)Perl_croak(aTHX_ "Usage: Business::KontoCheck::lut_scl_multi(bic)");
2426 0 0 SvSETMAGIC(ST(0));
2428 0 0 SvSETMAGIC(ST(1));
2430 0 0 SvSETMAGIC(ST(2));
2441 0 0 if(items!=4)Perl_croak(aTHX_ "Usage: Business::KontoCheck::lut_scl_multi_blz(blz)");
2445 0 0 SvSETMAGIC(ST(0));
2447 0 0 SvSETMAGIC(ST(1));
2449 0 0 SvSETMAGIC(ST(2));
2460 0 0 if(items!=2)Perl_croak(aTHX_ "Usage: Business::KontoCheck::lut_scl_sct(bic)");
2464 0 0 SvSETMAGIC(ST(0));
2475 0 0 if(items!=3)Perl_croak(aTHX_ "Usage: Business::KontoCheck::lut_scl_sct_blz(blz)");
2479 0 0 SvSETMAGIC(ST(0));
2481 0 0 SvSETMAGIC(ST(1));
2493 0 0 if(items!=2)Perl_croak(aTHX_ "Usage: Business::KontoCheck::lut_scl_sdd(bic)");
2497 0 0 SvSETMAGIC(ST(0));
2508 0 0 if(items!=3)Perl_croak(aTHX_ "Usage: Business::KontoCheck::lut_scl_sdd_blz(blz)");
2512 0 0 SvSETMAGIC(ST(0));
2514 0 0 SvSETMAGIC(ST(1));
2526 0 0 if(items!=2)Perl_croak(aTHX_ "Usage: Business::KontoCheck::lut_scl_cor1(bic)");
2530 0 0 SvSETMAGIC(ST(0));
2541 0 0 if(items!=3)Perl_croak(aTHX_ "Usage: Business::KontoCheck::lut_scl_cor1_blz(blz)");
2545 0 0 SvSETMAGIC(ST(0));
2547 0 0 SvSETMAGIC(ST(1));
2559 0 0 if(items!=2)Perl_croak(aTHX_ "Usage: Business::KontoCheck::lut_scl_b2b(bic)");
2563 0 0 SvSETMAGIC(ST(0));
2574 0 0 if(items!=3)Perl_croak(aTHX_ "Usage: Business::KontoCheck::lut_scl_b2b_blz(blz)");
2578 0 0 SvSETMAGIC(ST(0));
2580 0 0 SvSETMAGIC(ST(1));
2592 0 0 if(items!=2)Perl_croak(aTHX_ "Usage: Business::KontoCheck::lut_scl_scc(bic)");
2596 0 0 SvSETMAGIC(ST(0));
2607 0 0 if(items!=3)Perl_croak(aTHX_ "Usage: Business::KontoCheck::lut_scl_scc_blz(blz)");
2611 0 0 SvSETMAGIC(ST(0));
2613 0 0 SvSETMAGIC(ST(1));