File Coverage

blib/lib/Hash/Layout/Level.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	13	14	92.8
condition	10	12	83.3
subroutine	6	6	100.0
pod			n/a
total	51	54	94.4

package Hash::Layout::Level;
use strict;
use warnings;

# ABSTRACT: Level definition object for Hash::Layout

use Moo;
use Types::Standard qw(:all);

has 'index',     is => 'ro', isa => Int, required => 1;
has 'delimiter', is => 'ro', isa => Maybe[Str], default => sub {undef};

has 'name',      is => 'ro', isa => Str, lazy => 1, default => sub {
  my $self = shift;
  return 'level-' . $self->index;
};

# Key names which we specifically expect to be at this level. This
# is a mechanism to resolve default/pad ambiguity when resolving
# composite key strings
has 'registered_keys', is => 'ro', isa => Maybe[
  Map[Str,Bool]
], coerce => \&_coerce_list_hash, default => sub {undef};


## TDB:
#has 'edge_keys', is => 'ro', isa => Maybe[
#  Map[Str,Bool]
#], coerce => \&_coerce_list_hash, default => sub {undef};
#
#has 'deep_keys', is => 'ro', isa => Maybe[
#  Map[Str,Bool]
#], coerce => \&_coerce_list_hash, default => sub {undef};
#
#has 'limit_keys', is => 'ro', isa => Bool, default => sub { 0 };



# Peel off the prefix key from a concatenated key string, according
# to this Level's delimiter:
sub _peel_str_key {
  my ($self,$key) = @_;

  return $key if (
    $self->registered_keys &&
    $self->registered_keys->{$key}
  );

  my $del = $self->delimiter or return undef;
  return undef unless ($key =~ /\Q${del}\E/);
  my ($peeled,$leftover) = split(/\Q${del}\E/,$key,2);
  return undef unless ($peeled && $peeled ne '');
  return ($leftover && $leftover ne '' && wantarray) ?
    ($peeled,$leftover) : $peeled;
}

sub _coerce_list_hash {
  $_[0] && ! ref($_[0]) ? { $_[0] => 1 } :
  ref($_[0]) eq 'ARRAY' ? { map {$_=>1} @{$_[0]} } : $_[0];
}

1;

__END__