Branch Coverage

blib/lib/Algorithm/SkipList.pm
Criterion Covered Total %
branch 101 140 72.1


line true false branch
61 95 8 if (@_)
65 163 0 if ($self->can($method)) { }
119 1 160 if ($level > 32) { }
5 155 elsif ($level < 2) { }
30 190 elsif (defined $self->list and $level < $self->list->level) { }
132 92 188 if (defined $level) { }
163 3 153 unless ($p > 0 and $p < 1)
177 8 306 if (defined $p) { }
187 0 103 unless ($k >= 0)
198 0 256 if (defined $k) { }
221 386 24598 if ($$self{'SIZE'} >= $$self{'SIZE_THRESHOLD'}) { }
22 24576 elsif ($$self{'SIZE'} < $$self{'LAST_SIZE_TH'}) { }
224 367 19 if $$self{'SIZE_LEVEL'} < $$self{'MAXLEVEL'}
228 19 3 if $$self{'SIZE_LEVEL'} > 2
279 245 24957 unless $cmp
330 24812 142 unless ($finger)
331 24736 76 if ($node = $$self{'LASTINSRT'}[0])
332 24643 93 if $node->key_cmp($key) <= 0
339 24906 48 if ($cmp or $$self{'DUPLICATES'}) { }
377 55 20 if ($cmp == 0) { }
383 6 49 if ($$self{'LIST_END'} and $node == $$self{'LIST_END'})
413 0 20 if warnings::enabled()
430 20 60 wantarray ? :
80 40 $cmp == 0 ? :
441 194 41 $cmp == 0 ? :
456 145 9 if (@_ > 1) { }
459 0 145 if ($check < 0 or $check >= $self->size)
460 0 0 if warnings::enabled()
464 0 9 unless ($$self{'LASTKEY'})
470 152 2 if ($node) { }
471 14 138 wantarray ? :
483 47 3 if ($node) { }
487 0 3 if warnings::enabled()
497 0 86 if (defined $last_key) { }
500 0 0 if ($cmp)
501 0 0 if warnings::enabled()
506 25 61 unless $$self{'LASTKEY'}
507 25 61 unless ($node)
512 61 0 if ($node) { }
514 59 2 $node && defined $index ? :
591 39 0 if ($node) { }
594 9 12 if warnings::enabled()
603 8 20 if ($node) { }
606 0 21 if warnings::enabled()
637 30 47 unless defined $low
638 30 44 unless defined $high
640 10 49 if ($self->_node_class->new($low)->key_cmp($high) > 0)
646 7 48 if ($cmp) { }
678 10 0 if (defined $key) { }
680 10 0 if ($cmp == 0) { }
708 24 0 if ($$finger[$i]) { }
0 0 elsif ($$old_hdr[$i]) { }
709 0 24 if ($$finger[$i] == $node) { }
720 0 0 if ($$old_hdr[$i] == $node) { }
725 0 0 if warnings::enabled()
748 0 0 if warnings::enabled()
773 2 22 unless @nodes
795 29 0 $node2 ? :
29 1 $node1 ? :
798 6 24 if ($cmp < 0) { }
9 15 elsif ($cmp > 0) { }
799 5 1 if ($node1) { }
807 9 0 if ($node2) { }
815 15 0 if $node1
817 15 0 if $node2
828 0 3 unless (defined $list2)
831 3 0 if ($node) { }
835 0 3 if ($list1->list->level > $list2->list->level) { }
837 0 0 if ($list1->list->level < $list1->max_level) { }
946 16 0 if ($node->key_cmp($key) == 0) { }