如何同时分配多个 Moose 属性？

Question

我逐渐对一些代码进行了 Moose 化，这些代码从分隔的管道中读取行，分割每个行并使用哈希切片分配将它们添加到哈希中。

我已将哈希转换为 Moose 类，但现在我不知道如何快速将文件中的字段分配给该类的属性（如果有的话）。

我知道我可以很容易地做到：

my $line = get_line_from_file;
my @fields = split /\|/, $line;
my $record = My::Record->new;
$record->attr1($fields[0]);
...

但我希望有一个快速的衬里一次性分配所有属性，有点类似于：

my $line = get_line_from_file;
my %records;
@records{@field_names} = split /\|/, $line;

我读过有关强制的内容，但据我所知，这不是我想要的。

是否可以？

谢谢

Answer 1

使用 List::MoreUtils 模块中的 zip 将属性传递给构造函数：

use List::MoreUtils qw/ zip /;

my $object = My::Record->new(
  zip @field_names,
      @{[ split /\|/, get_line_from_file ]}
);

Answer 2

我认为您使用哈希切片方法走在正确的轨道上。我会做类似的事情：

my %fields;
@fields{@field_names} = split m{\|}, $line;
my $record = My::Record->new( %fields );

你也许能够想出一个粗糙的地图解决方案来实现同样的目标，但我会在可读性方面犯错误。

Answer 3

如果对象尚未构造，您可以简单地将所有键和值传递到构造函数中：

my $line = get_line_from_file;
my %records;
@records{@field_names} = split /\|/, $line;
my $object = My::Record->new(%records);

或者如果对象已经创建并且您想要添加一些新字段：

my $line = get_line_from_file;
my %records;
@records{@field_names} = split /\|/, $line;
while (my ($key, $value) = each(%records)
{
    $object->$key($value);

    # or if you use different names for the setters than the "default":
    $object->set_value($key, $value);
}