Branch Coverage

blib/lib/Config/Model/HashId.pm
Criterion Covered Total %
branch 88 132 66.6


line true false branch
63 0 231 unless defined $self->index_type
84 42 10 if ($idx_type eq "integer")
85 0 42 if defined $self->{'max_index'} and $k > $self->{'max_index'}
86 0 42 if defined $self->{'min_index'} and $k < $self->{'min_index'}
88 0 52 if defined $self->{'max_nb'} and $idx++ > $self->{'max_nb'}
95 52 0 unless &$wrong($k)
104 742 422 if $self->{'migration_done'}
108 194 228 if $self->instance->initial_load
111 1 227 if ($self->{'migrate_keys_from'}) { }
2 225 elsif ($self->{'migrate_values_from'}) { }
113 0 1 if ($logger->is_debug)
118 4 0 unless $self->_defined($idx)
123 0 2 if $logger->is_debug
126 0 5 if $self->exists($item)
142 0 1 $self->ordered ? :
148 1 0 if ($self->cargo_type eq "node")
156 0 5 if defined $v
172 133 1068 $self->{'ordered'} ? :
185 419 6 unless exists $self->{'data'}{$key}
186 14 411 if $self->write_empty_value
197 1752 789 defined $self->{'data'}{$key} ? :
205 256 7 unless defined $auto_p
208 12 20 unless exists $self->{'data'}{$_}
7 0 ref $auto_p ? :
217 608 317 if @temp
247 2 0 if ($self->ordered) { }
261 4 0 if ($self->ordered) { }
279 0 0 if $self->{'warp'} and @{$self->{'warp_info'}{'computed_master'};}
281 0 0 if defined $self->{'default'}
294 0 0 if $self->{'warp'} and @{$self->{'warp_info'}{'computed_master'};}
298 0 0 if defined $res
314 0 4 unless exists $self->{'data'}{$k}
319 2 4 if ($copy[$idx] eq $key1)
322 2 4 if ($copy[$idx] eq $key2)
337 0 6 unless exists $self->{'data'}{$from}
342 6 0 if ($ok or $check eq 'no') { }
0 0 elsif ($check eq 'yes') { }
361 2 20 if $list->[$idx] eq $to
362 6 16 if $list->[$idx] eq $from
365 2 4 if (defined $to_idx) { }
391 0 3 unless ($self->ordered)
400 0 5 unless exists $self->{'data'}{$k}
409 2 1 if (defined $ref_key) { }
411 2 4 if ($list->[$idx] eq $ref_key)
432 0 1 unless ($self->ordered)
440 0 1 unless exists $self->{'data'}{$key}
446 1 0 if ($list->[$idx] eq $key)
462 0 1 unless ($self->ordered)
470 0 1 unless exists $self->{'data'}{$key}
476 1 1 if ($list->[$idx] eq $key)
498 3 27 if ($self->{'ordered'} and defined $data->{$order_key} || defined $data->{'__order'}) { }
2 26 elsif ($self->{'ordered'} and (not $data->{'__skip_order'} and keys %$data > 1)) { }
499 3 0 unless delete $data->{$order_key}
513 3 27 if (@ordered_keys)
517 2 11 unless delete $data_keys{$k}
519 1 2 if (%data_keys or @left_keys)
521 0 1 if %data_keys
522 1 0 if @left_keys
530 2 27 @ordered_keys ? :
538 58 1 if defined $data->{$elt}
544 27 5 @_ > 1 ? :
548 30 2 if (ref $data eq 'HASH') { }
2 0 elsif (ref $data eq 'ARRAY') { }
0 0 elsif (defined $data) { }
554 0 2 unless $self->ordered
565 0 0 $self->{'ordered'} ? :