view release on metacpan or  search on metacpan

lib/Dist/Zilla/PluginBundle/Author/KENTNL.pm  view on Meta::CPAN

  if ( @args or not 'HASH' eq ( ref $config || q[] ) ) {
    $config = { $config, @args };
  }
  my (%init_args);
  for my $attr ( $self->meta->get_all_attributes ) {
    next unless my $arg = $attr->init_arg;
    $init_args{$arg} = 1;
  }

  # A weakened warn-only filter-supporting StrictConstructor
  for my $key ( keys %{$config} ) {
    next if exists $init_args{$key};
    next if $key =~ /\A-remove/msx;
    next if $key =~ /\A[^.]+[.][^.]/msx;
    require Carp;
    Carp::carp("Unknown key $key");
  }
  return $config;
}