perl - 在 Moose 中，如何为子类中的父类(super class)指定构造函数参数？

Question

我有一个带有一些属性(x、y、z)的 Moose 类。我将它子类化，对于子类，x 始终为 3。如何在子类中指定它？

Answer 1

可以使用 BUILDARGS .

around BUILDARGS => sub {
    my $orig  = shift;
    my $class = shift;
 
    return $class->$orig(@_, x => 3 );
};