oop - 为对象的 BUILD 移相器中的属性赋值

Question

当BUILD调用移相器，它会覆盖 Perl6 中的默认属性分配。假设我们必须使用 BUILD 移相器，就像我们在 this module 中所做的那样(这就是我遇到这个问题的地方)。在那个阶段为属性赋值的方法是什么？
我用过这个

class my-class {
    has $.dash-attribute;

    submethod BUILD(*%args) {
        for %args.kv -> $k, $value {
            self."$k"( $value );
        }
    }
};

my $my-instance = my-class.new( dash-attribute => 'This is the attribute' );

我得到这个错误

Too many positionals passed; expected 1 argument but got 2

$!的其他组合或 $. ，直接赋值，将属性声明为 rw (相同的错误)产生不同类型的错误。这可能只是一个语法问题，但我找不到解决方案。任何帮助将不胜感激。

Answer 1

在你的例子中有两件事是错误的，我是这么看的。首先，如果你想要一个属性是可写的，你需要标记它is rw .其次，改变属性的值是通过赋值来完成的，而不是通过将新值作为参数给出。

所以我认为代码应该是:

class my-class {
    has $.dash-attribute is rw;

    submethod BUILD(*%args) {
        for %args.kv -> $k, $value {
            self."$k"() = $value;
        }
    }
};

my $my-instance = my-class.new( dash-attribute => 'attribute value' );
dd $my-instance;
# my-class $my-instance = my-class.new(dash-attribute => "attribute value")