perl - 是否有任何 Perl 模块可以从默认配置和可选配置的 hashref 中设置对象？

Question

我发现自己反复编写和重写以下类型的代码:

 my %default = (x => "a", y => "b");
 sub new
 {
      my ($package, $config) = @_;
      my $self = {%default};
      for my $k (keys %default) {
           $self->{$k} = $config->{$k} if defined $config->{$k};
      }
      for my $k (keys %$config) {
           if (! exists $default{$k}) {
                carp "Unknown config option $k\n";
           }
      }
      bless $self;
      # etc. etc.
 }

在我制作自己的模块来执行此操作之前，我只是想知道 CPAN 上是否已经有类似的东西？我只想要这个非常简单的上述功能，所以建议使用 Moose 不是这个问题的合适答案。

Answer 1

Moose支持属性的默认值，例如:

has 'foo' => ( is => 'rw', isa => 'Int', default => 42 );

但是，如果您不想走 Moose 路线，实现您想要的更简单的方法是:

sub new { 
    my ( $package, %config ) = @_;

    my %defaults = ( x => 'a', y => 'b' );

    my $self = { %defaults, %config };

    # error checking here

    return bless $self, $package;
}

由于在哈希初始化中两次指定相同的哈希键将破坏第一个，因此 %config 中的任何键将简单地覆盖 %defaults 中的那些.