Branch Coverage

blib/lib/Business/BR/IE.pm

Criterion	Covered	Total	%
branch	137	194	70.6

line	true	false	branch
29	0	203	if length $ie != 13
30	0	203	unless $ie =~ /^01/
33	1	13	unless ($s1 == 0 or $s1 == 1 and $ie[11] == 0)
37	101	101	$s2 == 0 || $s2 == 1 && $ie[12] == 0 ? :
47	200	0	@_ ? :
48	100	100	$valid ? :
52	0	200	if wantarray
57	100	100	@_ ? :
64	1	1	if (wantarray)
92	0	201	if length $ie != 9
93	0	201	unless $ie =~ /^24/
95	0	201	unless $AL_TYPES{$ie[2]}
98	101	100	$s1 == 0 || $s1 == 10 && $ie[8] == 0 ? :
108	200	0	@_ ? :
109	100	100	$valid ? :
112	0	200	if wantarray
117	100	100	@_ ? :
126	0	1	if (wantarray)
148	0	211	if length $ie != 9
149	1	210	unless $ie =~ /^03/
152	2	202	$nr_empresa >= 17001 && $nr_empresa <= 19022 ? :
	6	204	$nr_empresa >= 1 && $nr_empresa <= 17000 ? :
161	110	100	$sum == 0 || $sum == 10 && $ie[8] == 0 ? :
171	200	0	@_ ? :
172	100	100	$valid ? :
176	0	197	$nr_empresa >= 17001 && $nr_empresa <= 19022 ? :
	3	197	$nr_empresa >= 1 && $nr_empresa <= 17000 ? :
181	0	200	if wantarray
186	100	100	@_ ? :
194	0	0	if (wantarray)
216	0	201	if length $ie != 9
220	101	100	$s1 == 0 || $s1 == 1 && $ie[8] == 0 ? :
230	0	1	if (wantarray)
240	200	0	@_ ? :
241	100	100	$valid ? :
244	0	200	if wantarray
249	100	100	@_ ? :
263	0	202	if length $ie != 8
266	145	57	if ($ie =~ /^[0123458]/) { }
269	0	145	unless ($s2 == 0)
273	76	69	$s1 == 0 ? :
278	0	4	unless ($s2 == 0 or $s2 == 1 and $ie[7] == 0)
282	26	31	$s1 == 0 || $s1 == 1 && $ie[6] == 0 ? :
294	0	1	if (wantarray)
305	200	0	@_ ? :
306	100	100	$valid ? :
309	144	56	if ($base =~ /^[0123458]/) { }
313	0	144	if wantarray
321	0	56	if wantarray
328	100	100	@_ ? :
367	0	201	if length $ie != 9
368	0	201	unless $ie =~ /^12/
371	101	100	$s1 == 0 || $s1 == 1 && $ie[8] == 0 ? :
381	200	0	@_ ? :
382	100	100	$valid ? :
385	0	200	if wantarray
390	100	100	@_ ? :
397	0	1	if (wantarray)
425	0	201	if length $ie != 13
429	0	201	unless ($ie[11] eq $c1)
434	101	100	$s2 == 0 || $s2 == 1 && $ie[12] == 0 ? :
446	0	1	if (wantarray)
459	200	0	@_ ? :
460	100	100	$valid ? :
464	0	200	if wantarray
469	100	100	@_ ? :
505	0	202	if length $ie != 10
509	0	18	unless ($s1 == 0 or $s1 == 1 and $ie[8] == 0)
512	102	100	$s2 == 0 || $s2 == 1 && $ie[9] == 0 ? :
522	200	0	@_ ? :
523	100	100	$valid ? :
527	0	200	if wantarray
532	100	100	@_ ? :
539	1	1	if (wantarray)
584	0	203	if length $ie != 14
596	200	0	@_ ? :
597	100	100	$valid ? :
600	0	200	if wantarray
605	100	100	@_ ? :
612	0	1	if (wantarray)
627	0	210	if length $ie != 9
628	0	210	unless $ie =~ /^24/
631	110	100	$s1 == 0 ? :
641	200	0	@_ ? :
642	100	100	$valid ? :
645	0	200	if wantarray
650	100	100	@_ ? :
657	0	1	if (wantarray)
683	0	211	if length $ie != 12
686	0	31	unless ($s1 == 0 or $s1 == 10 and $ie[8] == 0)
690	102	109	$s2 == 0 || $s2 == 10 && $ie[11] == 0 ? :
710	200	0	@_ ? :
711	100	100	$valid ? :
715	0	200	if wantarray
727	100	100	@_ ? :
735	0	0	if (wantarray)
882	0	4484	unless $sub