| blib/lib/Hash/Layout.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 56 | 86 | 65.1 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 98 | 11 | 65 | 0 | $Lvl->delimiter and $Lvl->delimiter eq $self->deep_delimiter |
| 118 | 0 | 0 | 1 | &blessed($args[0]) and &blessed($args[0]) eq 'Hash::Layout' |
| 154 | 12 | 0 | 16 | ref $val and ref $val eq 'HASH' |
| 12 | 8 | 8 | ref $val and ref $val eq 'HASH' and $self->lookup_mode eq 'merge' | |
| 159 | 0 | 0 | 8 | ref $val and ref $val eq 'HASH' |
| 169 | 16 | 0 | 23 | ref $val and ref $val eq 'HASH' |
| 190 | 0 | 0 | 0 | ref $v && ref $v eq 'HASH' && scalar keys %$v > 0 |
| 363 | 0 | 0 | 412 | defined $key and not ref $key |
| 375 | 100 | 0 | 312 | ref $val && ref $val eq 'HASH' |
| 416 | 291 | 23 | 42 | $index == 0 and $$bmref |
| 454 | 0 | 0 | 360 | ref $hash and ref $hash eq 'HASH' |
| 462 | 0 | 0 | 360 | ref $hval and ref $hval eq 'HASH' |
| 473 | 0 | 0 | 3 | $key and $key ne '' |
| 502 | 2939 | 11 | 5 | $Lvl->registered_keys and $Lvl->registered_keys->{$key} |
| 558 | 0 | 0 | 12 | ref $val and ref $val eq 'ARRAY' |
| 566 | 0 | 0 | 79 | ref $itm and ref $itm eq 'HASH' |
| 571 | 64 | 15 | 0 | $itm->{'name'} and $seen{$itm->{'name'}}++ |
| 577 | 67 | 12 | 0 | scalar @$val == ++$i and $itm->{'delimiter'} |
| line | l | !l | condition |
|---|---|---|---|
| 54 | 9 | 0 | $self->_all_level_keys->{$index} || {} |
| 342 | 345 | 26 | $self->{'_fq_composite_prefix'} || undef |
| 351 | 3 | 391 | $self->{'_force_composite'} || 0 |
| 393 | 291 | 65 | $self->{'_path_bitmask'} ||= \$bm |
| 439 | 3 | 0 | $self->deep_delimiter || '.' |
| 497 | 3216 | 92 | $index ||= 0 |
| 518 | 817 | 133 | $index ||= 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 201 | 0 | 0 | 0 | $self->{'_lookup_path_globmatch'}{$key_str} //= do { my $value = undef; foreach my $c_key (keys %{$self->_Hash_fq_composite;}) { local $Text::Glob::strict_wildcard_slash = 0; if (match_glob($c_key, $key_str)) { $value = $self->_Hash_fq_composite->{$c_key}; last; } ; } ; $value } |
| 377 | 21 | 35 | 356 | $force_composite or $self->_is_composite_key($key, $index) |
| 503 | 33 | 8 | 2909 | $Lvl->_peel_str_key($key) || $self->_is_composite_key($key, $index + 1) |
| 519 | 43 | 3 | 904 | $no_fill ||= $self->no_fill |
| 540 | 129 | 10 | 468 | $last_level || $no_fill && $self->{'_composite_key_peeled'} |
| 541 | 10 | 136 | 461 | $self->no_pad || $as_is |