raku - 如何通过克隆填充 Callable 属性？

Question

class Foo {
    has &.bar;
    has @.quux is required;
    method clone { nextwith :quux(@!quux.clone) };
    # as per <https://docs.perl6.org/type/Mu#method_clone>
};
my $f = Foo.new(quux => []);
my $f-clone = $f.clone(bar => sub { die });
# Foo.new(bar => Callable, quux => [])

但应该是

Foo.new(bar => sub { #`(Sub|94789546929784) ... }, quux => [])

添加 :bar(&!bar.clone)到 nextwith打电话没有帮助。

Answer 1

nextwith “使用用户提供的参数调用下一个匹配的候选者”。你只是传递了一个 :quux nextwith 中的参数称呼。

除非您添加显式 slurpy 哈希参数(例如 *%foo )，否则所有方法都具有隐式 *%_在他们的签名中:

say .signature given method ($a, $b) {} # (Mu: $a, $b, *%_)

所以默认情况下，所有命名参数都被吞入 %_。 .一个常见的习惯用法是传递这些:

method clone { nextwith :quux(@!quux.clone), |%_ }

以上将传递提供给 $f.clone 的参数。调用 nextwith 'd clone称呼。

Adding :bar(&!bar.clone) to the nextwith call does not help.

这将代替 :bar在 $f.clone 中传递的参数称呼。 &!bar在原始对象中包含 Callable类型对象。