Branch Coverage

blib/lib/Array/Set.pm

Criterion	Covered	Total	%
branch	150	190	78.9

line	true	false	branch
20	12	0	if (ref $_[0] eq 'HASH') { }
34	4	8	if ($ar)
43	6	18	if ($op eq 'union') { }
	6	12	elsif ($op eq 'intersect') { }
	6	6	elsif ($op eq 'diff') { }
	6	0	elsif ($op eq 'symdiff') { }
45	6	0	if ($ign) { }
49	3	1	defined $_ ? :
	3	4	ref $_ ? :
	7	8	$ar ? :
50	3	12	if ($k eq 'R') { }
	11	1	elsif (defined $_) { }
53	7	4	$ic ? :
54	4	7	if $ib
57	11	4	unless exists $res{$k}
60	3	3	if ($i == @_)
66	0	0	if ($i == @_)
73	6	0	if ($ign) { }
74	3	3	if ($i == 1) { }
78	2	0	defined $_ ? :
	2	2	ref $_ ? :
	4	4	$ar ? :
79	2	6	if ($k eq 'R') { }
	6	0	elsif (defined $_) { }
82	2	4	$ic ? :
83	4	2	if $ib
86	8	0	unless exists $res{$k}
92	2	0	defined $_ ? :
	1	2	ref $_ ? :
	3	4	$ar ? :
93	1	6	if ($k eq 'R') { }
	6	0	elsif (defined $_) { }
96	2	4	$ic ? :
97	4	2	if $ib
100	4	3	if ($res{$k} and $res{$k}[0] == $i - 1)
106	3	3	if ($i == @_)
111	0	0	if ($i == 1) { }
115	0	0	if ($res{$_} and $res{$_} == $i - 1)
121	0	0	if ($i == @_)
128	6	0	if ($ign) { }
129	3	3	if ($i == 1) { }
133	2	0	defined $_ ? :
	2	2	ref $_ ? :
	4	4	$ar ? :
134	2	6	if ($k eq 'R') { }
	6	0	elsif (defined $_) { }
137	2	4	$ic ? :
138	4	2	if $ib
141	8	0	unless exists $res{$k}
147	2	0	defined $_ ? :
	1	2	ref $_ ? :
	3	4	$ar ? :
148	1	6	if ($k eq 'R') { }
	6	0	elsif (defined $_) { }
151	2	4	$ic ? :
152	4	2	if $ib
159	3	3	if ($i == @_)
163	0	0	if ($i == 1) { }
171	0	0	if ($i == @_)
178	6	0	if ($ign) { }
179	3	3	if ($i == 1) { }
183	2	0	defined $_ ? :
	2	2	ref $_ ? :
	4	4	$ar ? :
184	2	6	if ($k eq 'R') { }
	6	0	elsif (defined $_) { }
187	2	4	$ic ? :
188	4	2	if $ib
191	8	0	unless exists $res{$k}
197	2	0	defined $_ ? :
	1	2	ref $_ ? :
	3	4	$ar ? :
198	1	6	if ($k eq 'R') { }
	6	0	elsif (defined $_) { }
201	2	4	$ic ? :
202	4	2	if $ib
205	3	4	if (not $res{$k}) { }
	4	0	elsif ($res{$k}[0] <= 2) { }
213	3	3	if ($i == @_)
218	0	0	if ($i == 1) { }
222	0	0	if (not $res{$_} or $res{$_} <= 2)
228	0	0	if ($i == @_)
242	3	3	ref $_[0] eq 'HASH' ? :
243	3	3	if ($opts->{'ignore_case'} or $opts->{'ignore_blanks'} or $opts->{'allow_refs'}) { }
253	4	6	unless $set2{$el}
262	3	3	ref $_[0] eq 'HASH' ? :
263	3	3	if ($opts->{'ignore_case'} or $opts->{'ignore_blanks'} or $opts->{'allow_refs'}) { }
276	3	7	unless $set2{$el}
280	3	9	unless $set1{$el}
289	3	3	ref $_[0] eq 'HASH' ? :
290	3	3	if ($opts->{'ignore_case'} or $opts->{'ignore_blanks'} or $opts->{'allow_refs'}) { }
298	12	9	unless $mem{$el}++
306	3	3	ref $_[0] eq 'HASH' ? :
307	3	3	if ($opts->{'ignore_case'} or $opts->{'ignore_blanks'} or $opts->{'allow_refs'}) { }
317	8	3	if $set2{$el}