Branch Coverage

blib/lib/Yote.pm
Criterion Covered Total %
branch 201 290 69.3


line true false branch
53 1 8 unless ($root)
64 1 13 unless ($node)
66 0 1 unless $first_id == 1
77 0 14 if ($node->get_db_version < $Yote::DB_VERSION)
80 0 14 if ($node->get_db_version > $Yote::DB_VERSION)
106 15 0 unless $INC{$pkg}
167 0 98 if ($item eq 'Yote::Array') { }
0 98 elsif ($item eq 'Yote::Hash') { }
86 12 elsif ($ref eq 'ARRAY') { }
5 7 elsif ($ref eq 'HASH') { }
170 0 0 if $_ > 1
175 0 0 if ($tied->[3] == 0) { }
176 0 0 if $_ > 1
178 0 0 if $_ > 1
183 86 0 if ($tied) { }
185 70 527 if $_ > 1
192 5 0 if ($tied) { }
194 5 0 if ($tied->[3] == 0) { }
195 1 108 if $_ > 1
197 0 0 if $_ > 1
204 21 8 if $_ > 1
212 872 56 if ($recycle_tally->fetch($i) != 1)
224 0 4363 unless $obj
227 3395 11 $cls eq 'ARRAY' ? :
957 3406 $cls eq 'HASH' ? :
240 0 38391 unless $id and $id ne 'u'
243 32568 5823 if $ref
247 5 5818 unless $stowed
250 0 5818 if $pos == -1
255 5818 0 unless ($INC{$class})
265 7 5811 if (0 < grep({/\\$/;} @$pieces))
274 42 56 if ($part =~ /(^|[^\\])((\\\\)+)?[\\]$/) { }
28 28 elsif ($is_hanging) { }
275 14 28 if ($is_hanging) { }
292 0 7 if ($is_hanging)
305 41 11927 if (ref $val)
308 11875 52 defined $val ? :
313 3502 5696 unless defined $val and $val ne 'u'
314 5615 81 if (index($val, 'v') == 0)
322 0 10171 unless $ref
329 7 28882 unless $_[1]
344 0 48 unless $class
346 9 39 if ($class eq 'ARRAY') { }
33 6 elsif ($class eq 'HASH') { }
348 6 3 unless ($thingy)
360 31 2 unless ($thingy)
371 0 9 unless $class eq 'Yote::Hash' or $class eq 'Yote::Array' or $ref->isa('Yote::Obj')
414 26 3369 $self->[4] > $self->[6] ? :
415 3381 14 if ($stuff_count > 0)
416 0 13574 if (defined $_ and $_ =~ /[\\\`]/)
13490 84 defined $_ ? :
441 0 4011 if $block_size == 1 and $level > 0
442 0 4011 if $block_count < 1
446 1 4010 $use_push ? :
462 1 4010 if ($use_push)
473 6902 11036 if ($idx >= $self->[6])
477 961 10075 if ($self->[3] == 0)
482 10075 0 if ($block)
497 0 13 if $self->[7]
531 26058 3373 if ($block_id > 0)
534 0 0 wantarray ? :
544 836 2537 if ($block_idx >= $self->[4] - 1)
553 0 0 wantarray ? :
560 5 24662 if ($idx >= $self->[4] * $self->[5])
566 13457 11205 if ($idx >= $self->[6])
572 6645 18017 if ($self->[3] == 0)
586 0 14815 if $size > $self->[4] * $self->[5]
593 0 1 if $size < 0
598 0 1 if ($current_oversize > 0)
608 3 12 if ($idx >= $self->[6])
611 4 8 if ($self->[3] == 0)
623 0 3 if ($idx < 0)
628 2 1 if ($idx == $self->[6] - 1)
643 2 0 if ($self->[6] > 0)
651 0 12 unless @vals
664 0 3 unless $self->[6]
671 0 3 unless @vals
679 0 1357 if ($offset < 0)
685 0 1357 if ($remove_length < 0)
689 0 1357 unless $remove_length or @vals
692 1010 347 if ($offset > $self->[6] - 1)
696 1 1356 if ($remove_length > $self->[6] - $offset)
706 0 1357 if ($new_size < 0)
711 4 1353 if ($new_size > $self->[5] * $self->[4])
719 898 459 if ($self->[3] == 0)
740 9 450 if ($remove_length)
757 344 115 if (@vals)
770 5 1 if ($bubble_size > 0)
774 3 3 @vals > $BLOCK_SIZE - $block_off ? :
775 6 0 if ($can_insert > 0)
784 18 1307 if ($remmy > @vals)
842 3858 34 if (defined $_)
3858 34 defined $_ ? :
101 856 $self->[3] ? :
859 0 6126 if ($level == 0 and $size > $buckets) { }
869 2855 3271 $level ? :
877 0 0 if ($self->[5] > 0)
888 0 1 unless $self->EXISTS($key)
895 1 0 if ($self->[3] == 0) { }
913 4808 5463 if ($self->[3] == 0) { }
923 5358 105 if ($hash_id > 0)
937 1540 2817 if ($self->[3] == 0) { }
946 2817 0 if ($hash_id > 0)
957 0 0 if ($self->[3] == 0) { }
978 3357 31 if ($newkey)
982 1639 1749 if ($self->[3] == 0) { }
985 101 1538 if ($self->[5] > $self->[4])
1000 180 888 if ($hash) { }
1035 1711 38 if ($hash_id > 0) { }
1055 2271 239 if ($self->[3] == 0)
1058 2084 187 wantarray ? :
1068 3893 8723 if ($lvl == 0) { }
1070 3389 504 wantarray ? :
1077 239 8484 if ($at_start)
1084 2318 6405 unless ($hash)
1086 2246 72 if $hash_id > 1
1089 8651 72 if ($hash)
1091 2246 6405 $at_start ? :
1092 6405 2246 if (defined $k)
1094 3016 3389 wantarray ? :
1101 239 2079 if ($self->[6][0] > $#$data)
1146 0 14 if ref $_[1]
1147 0 0 unless not ref $_[1]
1148 0 0 if ref $_[1]
1149 0 0 unless not ref $_[1]
1160 0 0 if ($self->[1]{$fld} ne $inval)
1164 0 0 unless (defined $inval)
1178 0 0 if (!defined($cur) || $cur eq 'u' and defined $default)
1179 0 0 if (ref $default)
1205 1 24 if ($func =~ /:add_to_(.*)/) { }
0 24 elsif ($func =~ /:add_once_to_(.*)/) { }
0 24 elsif ($func =~ /:remove_from_(.*)/) { }
0 24 elsif ($func =~ /:remove_all_from_(.*)/) { }
11 13 elsif ($func =~ /:set_(.*)/) { }
13 0 elsif ($func =~ /:get_(.*)/) { }
1225 0 0 unless (grep {$val eq $_;} @$arry)
1242 0 0 if ($arry->[$i] eq $val)
1263 0 0 if ($arry->[$i] eq $val)
1266 0 0 unless $count
1282 39 0 if $self->[1]{$fld} ne $inval
1283 0 39 unless (defined $inval)
1299 2 63 if (!defined($self->[1]{$fld}) || $self->[1]{$fld} eq 'u' and defined $init_val)
1300 2 0 if (ref $init_val)
1350 84 0 if (defined $_)
84 0 defined $_ ? :