perl - 驼鹿属性存在

Question

我正在尝试迭代 Moose 对象的属性，在不调用任何惰性构建器的情况下打印属性值(尽管如果属性值存在则打印)。

到目前为止，我的代码如下所示:

for my $attr ($object->meta->get_all_attributes) {
    my $name = $attr->name;

    # Lazy attributes that have not already been generated will not
    # exist in the object hash.
    next unless exists $object->{$name}

    my $value = $object->$name;
    print $value;
}

有没有一种方法可以使用 Moose 检查对象，告诉我属性值是否存在，而无需修改 Moose 类本身？

即上面代码中“next unless exists”行的更优雅的替代方案

感谢您的帮助和考虑:)

Answer 1

阅读Moose::Meta::Class文档会将您指向 Class::MOP::Class和 Class::MOP::Attribute .

然后您可以编写如下代码:

foreach my $attr ($object->meta->get_all_attributes) {
  my $name = $attr->name;

  next unless $attr->has_value($object);

  # Or, perhaps get_value(), depending on your requirements.
  say $attr->get_raw_value($object);
}