view release on metacpan or  search on metacpan

lib/Config/Structured.pm  view on Meta::CPAN

    next if ($i =~ /[*]$/);                 # skip parent slots (ending in *)
    next if (grep {$_ eq $i} @RESERVED);    # skip reserved words
    push(@v, $i);
  }
  return @v;
}

###
#  CONSTRUCTOR
###
sub new($class, %args) {
  die("structure is a required parameter") unless (defined($args{structure}));
  die("config is a required parameter")    unless (defined($args{config}));

  # process %args
  my $config    = ref($args{config})    ? $args{config}    : deserialize($args{config});
  my $structure = ref($args{structure}) ? $args{structure} : deserialize($args{structure});
  my $hooks     = $args{hooks} // {};
  my $path      = $args{path}  // [];
  my $tc_fail   = $TCF_HANDLERS{exists($args{on_typecheck_error}) ? $args{on_typecheck_error} : 'warn'};