Branch Coverage

blib/lib/Tree/Multi.pm

Criterion	Covered	Total	%
branch	195	270	72.2

line	true	false	branch
44	0	0	unless @_ == 1
46	0	0	unless $n <= &maximumNumberOfKeys()
52	0	1149745	unless @_ == 1
54	0	1149745	unless $n <= &maximumNumberOfKeys() + 1
60	0	83	unless $tree
67	0	908406	unless @_ == 1
73	0	118478	unless @_ > 0
74	0	118478	unless @{$tree->keys} <= &maximumNumberOfKeys()
80	0	1128164	unless @_ == 1
82	1001845	126319	unless @{$node->keys} == &maximumNumberOfKeys()
91	51820	74499	&maximumNumberOfKeys() % 2 == 0 ? :
98	39018	87301	if (my(@n) = @{$node->node})
103	118477	7842	if ($p != $node) { }
106	118477	101547	if ($n[$i] == $node)
124	0	234992	unless @_ == 2
130	0	893222	unless my(@k) = @{$tree->keys}
132	341773	551449	if ($key < $k[0])
133	83860	257913	unless my $n = $tree->node->[0]
138	331651	219798	if ($key > $k[-1])
139	88923	242728	unless my $n = $tree->node->[-1]
146	50	548687	if ($s == 0) { }
	219748	328939	elsif ($s < 0) { }
150	62159	157589	unless my $n = $tree->node->[$i]
162	0	481951	unless @_ == 2
167	2222	1679918	unless my(@k) = @{$tree->keys}
169	581049	1098869	if ($key < $k[0])
170	95642	485407	unless $tree = $tree->node->[0]
174	561478	537391	if ($key > $k[-1])
175	106560	454918	unless $tree = $tree->node->[-1]
181	241488	866978	if $s == 0
182	295903	571075	if ($s < 0)
183	36039	259864	unless $tree = $tree->node->[$i]
193	0	411111	unless @_ == 1
	0	411111	unless my $p = $tree->up
195	411111	576182	if $n[$i] == $tree
201	0	71973	unless @_ == 2
203	0	71973	unless my $p = $node->up
206	9260	62713	if ($dir) { }
207	0	9260	unless $i < @{$p->node} - 1
211	4637	4623	if (not &leaf($node))
217	0	62713	unless $i > 0
223	22719	39994	if (not &leaf($node))
232	0	116670	unless @_ == 2
234	0	116670	unless &halfFull($n)
235	0	116670	unless my $p = $n->up
236	0	116670	if &halfFull($p) and $p->up
240	22720	93950	if ($dir) { }
241	0	22720	unless $i < @{$p->node} - 1
244	0	22720	unless &halfFull($r)
247	7264	15456	unless (&leaf($n))
254	0	93950	unless $i > 0
257	0	93950	unless &halfFull($l)
260	25553	68397	unless (&leaf($n))
270	156663	31980	if (my $i = &indexInParent($tree)) { }
272	156663	0	if (&halfFull(my $r = $tree))
273	93950	62713	$l->halfFull ? :
278	31980	0	if (&halfFull(my $l = $tree))
279	22720	9260	&halfFull($r) ? :
286	0	401559	unless @_ == 1
288	205291	196268	unless &halfFull($tree)
289	0	196268	unless my $p = $tree->up
291	165991	30277	if ($p->up) { }
	7625	22652	elsif (@{$p->keys} == 1 and &halfFull(my $l = $p->node->[0]) and &halfFull(my $r = $p->node->[1])) { }
311	81055	51149	if &leaf($tree)
320	44937	23998	if &leaf($tree)
329	476	1815	if (&leaf($tree))
330	471	5	if @{$tree->keys}
340	1	5	unless $tree->up or @{$tree->keys}
342	24	30	unless $tree->up
350	0	240493	unless @_ == 2
351	0	240493	unless &leaf($tree)
353	235568	4925	if $tree->up
356	240493	254692	if ($k->[$j] == $key)
366	0	240493	unless @_ == 2
367	132259	108234	if (&leaf($tree)) { }
	43850	64384	elsif ($i > 0) { }
386	0	240493	unless @_ == 2
392	206183	553685	if ($key < $k->[0]) { }
	195379	358306	elsif ($key > $k->[-1]) { }
393	0	206183	unless $tree = $tree->node->[0]
396	0	195379	unless $tree = $tree->node->[-1]
400	240493	417880	if ((my $s = $key <=> $k->[$i]) == 0) { }
	117813	300067	elsif ($s < 0) { }
406	0	117813	unless $tree = $tree->node->[$i]
417	0	243487	unless @_ == 3
419	2294	241193	if (not my $n = @{$tree->keys}) { }
	6201	234992	elsif ($n < &maximumNumberOfKeys() and @{$tree->node} == 0) { }
427	0	10095	if ((my $s = $key <=> $k->[$i]) == 0) { }
	3881	6214	elsif ($s > 0) { }
444	50	234942	if ($compare == 0) { }
448	88923	146019	if $compare > 0
458	0	260	unless @_ == 1
474	0	33460	unless @_ >= 1
475	0	33460	unless my $C = $iter->node
489	260	33200	unless (defined $iter->pos)
491	3	0	@{$C->keys} ? :
	257	3	$l ? :
497	16403	15525	if $i < @{$p->keys}
503	16797	16403	if (&leaf($C)) { }
504	134	16663	$i < @{$C->keys} ? :
507	16403	0	$i < @{$C->node} ? :
513	0	65	unless @_ == 1
529	0	2210	unless @_ >= 1
530	0	2210	unless my $C = $iter->node
544	65	2145	unless (defined $iter->pos)
546	3	0	@{$C->keys} ? :
	62	3	$l ? :
553	1023	874	if $i > 0
559	1122	1023	if (&leaf($C)) { }
560	34	1088	$i > 0 ? :
563	1023	0	$i >= 0 ? :
569	0	2	unless $tree
574	10	6	unless $D and $D > $d
580	48	16	if length $s < $l
587	0	2	if @title
593	0	4	unless $tree
598	0	112	unless $t and $t->keys and @{$t->keys}
603	0	0	if defined $i and $i == $j and $tree == $t
607	112	0	if (my $nodes = $t->node)
619	0	11	unless @_ == 1
624	1	54	unless $t and $t->keys and my(@k) = @{$t->keys}
626	54	0	if (my $nodes = $t->node)
1796	1	0	if eval "eof(${p}::DATA)"
1798	0	0	if $@
1800	0	0	if $@
1830	0	6	unless ref $tree
1831	2	4	$flat ? :
1832	6	0	unless $develop
1834	0	0	unless $s
1861	0	462	unless $t->find($k) == $t{$k}
1862	0	462	if defined $t->find($k)
1863	0	462	if $t->height > $h
1865	0	2	unless $t->height == 0
1880	0	240000	unless $t->find($k) == $t{$k}
1881	0	240000	if defined $t->find($k)