Branch Coverage

KontoCheck.xs

Criterion	Covered	Total	%
branch	159	276	57.6

line	true	false	branch
1896	0	0	if(items!=1)Perl_croak(aTHX_ "Usage: Business::KontoCheck::ci_check(ci)");
1919	164	0	if(ret){
1921	0	164	SvSETMAGIC(ST(1));
1939	0	323	SvSETMAGIC(ST(1));
2011	0	2711	if(items!=9){
2017	2692	19	if(papier){
2018	59224	13460	for(ptr=papier,dptr=iban;*ptr;ptr++)if(*ptr!=' ')*dptr++=*ptr;
	72684	2692	for(ptr=papier,dptr=iban;*ptr;ptr++)if(*ptr!=' ')*dptr++=*ptr;
2021	0	2692	SvSETMAGIC(ST(2));
2023	0	2692	SvSETMAGIC(ST(3));
2026	2711	0	if(bic){
2028	0	2711	SvSETMAGIC(ST(4));
2032	0	2711	SvSETMAGIC(ST(5));
2039	0	2711	SvSETMAGIC(ST(6));
2041	0	2711	SvSETMAGIC(ST(7));
2043	0	2711	SvSETMAGIC(ST(8));
2057	0	0	if(items!=4){
2064	0	0	SvSETMAGIC(ST(1));
2065	0	0	if(ret>0){
2067	0	0	SvSETMAGIC(ST(2));
2069	0	0	SvSETMAGIC(ST(3));
2086	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]])");
2088	80	0	if(items>=2){
2090	0	80	SvSETMAGIC(ST(1));
2092	80	0	if(items==3){
2094	0	80	SvSETMAGIC(ST(2));
2111	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]]])");
2113	10	0	if(items>=3){
2115	0	10	SvSETMAGIC(ST(2));
2119	4	6	if(items>=4)uniq=(int)SvIV(ST(3));
	4	0	if(items>=4)uniq=(int)SvIV(ST(3));
2120	2	8	if(items>=5)sort=(int)SvIV(ST(4));
	2	0	if(items>=5)sort=(int)SvIV(ST(4));
2121	2	8	if(uniq>0)
2123	8	0	else if(uniq<=0 && sort>0)
	2	6	else if(uniq<=0 && sort>0)
2125	6	0	else if(uniq<0 && sort<0)
	6	0	else if(uniq<0 && sort<0)
2127	4	6	if(uniq) /* bei uniq>0 sortieren, uniq>1 sortieren + uniq */
2136	10	0	if(anzahl2){
2139	481	10	for(i=0;i
2143	8	2	if(want_array){ /* die drei nächsten Arrays werden nur bei Bedarf gefüllt */
2147	8	0	if(anzahl2){
2151	4	4	if(cnt_o)av_unshift(cnt_array,anzahl2);
2152	76	8	for(i=0;i
2153	374	8	for(i=0;i
2155	160	214	if(cnt_o)av_store(cnt_array,i,newSViv(cnt_o[i]));
2158	4	4	if(uniq){
2165	0	8	XPUSHs(blz_array_p);
2166	0	8	XPUSHs(zweigstelle_p);
2167	0	8	XPUSHs(vals_p);
2168	0	8	XPUSHs(sv_2mortal(newSViv(ret)));
2169	0	8	XPUSHs(cnt_array_p);
2173	0	2	if(uniq){
2177	0	2	XPUSHs(blz_array_p);
2201	0	0	uniq=SvIV(ST(2));
2206	12	0	uniq=SvIV(ST(2));
2207	12	0	such_cmd=SvPV_nolen(ST(3));
2215	12	0	if(items>4){ /* retval zurückgeben */
2217	0	12	SvSETMAGIC(ST(4));
2221	12	0	if(anzahl){
2224	264	12	for(i=0;i
2228	6	6	if(want_array){ /* das nächste Array wird nur bei Bedarf gefüllt */
2230	6	0	if(anzahl){
2233	132	6	for(i=0;i
2238	0	6	XPUSHs(blz_array_p);
2239	0	6	XPUSHs(zweigstelle_p);
2240	0	6	XPUSHs(sv_2mortal(newSViv(ret)));
2246	0	6	XPUSHs(blz_array_p);
2280	35	0	if(items>2 && items<7)
	35	0	if(items>2 && items<7)
2281	35	0	search=SvPV(ST(2),len);
2283	0	0	if(fkt)
2306	35	0	if(items>3){
2308	0	35	SvSETMAGIC(ST(3));
2311	14	21	if(items>4)uniq=(int)SvIV(ST(4));
	14	0	if(items>4)uniq=(int)SvIV(ST(4));
2312	7	28	if(items>5)sort=(int)SvIV(ST(5));
	7	0	if(items>5)sort=(int)SvIV(ST(5));
2313	7	28	if(uniq>0)
2315	28	0	else if(uniq<=0 && sort>0)
	7	21	else if(uniq<=0 && sort>0)
2317	21	0	else if(uniq<0 && sort<0)
	21	0	else if(uniq<0 && sort<0)
2319	14	21	if(uniq) /* bei uniq>0 sortieren, uniq>1 sortieren + uniq */
2327	35	0	if(anzahl2){
2330	860	35	for(i=0;i
2334	28	7	if(want_array){ /* die drei nächsten Arrays werden nur bei Bedarf gefüllt */
2338	28	0	if(anzahl2){
2342	14	14	if(cnt_o)av_unshift(cnt_array,anzahl2);
2343	678	28	for(i=0;i
2346	314	364	if(cnt_o)av_store(cnt_array,i,newSViv(cnt_o[i]));
2349	14	14	if(uniq){
2356	0	28	XPUSHs(blz_array_p);
2357	0	28	XPUSHs(zweigstelle_p);
2358	0	28	XPUSHs(vals_p);
2359	0	28	XPUSHs(sv_2mortal(newSViv(ret)));
2360	0	28	XPUSHs(cnt_array_p);
2364	0	7	if(uniq){
2368	0	7	XPUSHs(blz_array_p);
2388	0	0	search1=search2=(int)SvIV(ST(2));
2391	3	0	sort=(int)SvIV(ST(6));
2393	6	0	uniq=(int)SvIV(ST(5));
2396	15	0	search1=(int)SvIV(ST(2));
2397	15	0	search2=(int)SvIV(ST(3));
2437	3	12	if(uniq>0)
2439	12	0	else if(uniq<=0 && sort>0)
	3	9	else if(uniq<=0 && sort>0)
2441	9	0	else if(uniq<0 && sort<0)
	9	0	else if(uniq<0 && sort<0)
2443	6	9	if(uniq) /* bei uniq>0 sortieren, uniq>1 sortieren + uniq */
2450	15	0	if(items>=5){
2452	0	15	SvSETMAGIC(ST(4));
2456	15	0	if(anzahl2){
2459	2186	15	for(i=0;i
2463	12	3	if(want_array){ /* die drei nächsten Arrays werden nur bei Bedarf gefüllt */
2467	12	0	if(anzahl2){
2471	6	6	if(cnt_o)av_unshift(cnt_array,anzahl2);
2472	1692	12	for(i=0;i
2475	704	988	if(cnt_o)av_store(cnt_array,i,newSViv(cnt_o[i]));
2478	6	6	if(uniq){
2486	0	12	XPUSHs(blz_array_p);
2487	0	12	XPUSHs(zweigstelle_p);
2488	0	12	XPUSHs(vals_p);
2489	0	12	XPUSHs(sv_2mortal(newSViv(ret)));
2490	0	12	XPUSHs(cnt_array_p);
2494	0	3	if(uniq){
2498	0	3	XPUSHs(blz_array_p);
2519	0	0	if(items!=4)Perl_croak(aTHX_ "Usage: Business::KontoCheck::lut_scl_multi(bic)");
2523	0	0	SvSETMAGIC(ST(0));
2525	0	0	SvSETMAGIC(ST(1));
2527	0	0	SvSETMAGIC(ST(2));
2538	0	0	if(items!=4)Perl_croak(aTHX_ "Usage: Business::KontoCheck::lut_scl_multi_blz(blz)");
2542	0	0	SvSETMAGIC(ST(0));
2544	0	0	SvSETMAGIC(ST(1));
2546	0	0	SvSETMAGIC(ST(2));