类中的私有属性使类型化的公共属性未定义

Question

我正在编写一个如下所示的类：

class ListenSocket is Tap {
    has         $!VMIO;
    has Promise $.socket-host;
    has Promise $.socket-port;

    method new(&on-close, Mu :$VMIO, Promise :$socket-host, Promise :$socket-port) {
        self.bless: :&on-close, :$VMIO, :$socket-host, :$socket-port;
    }

    submethod BUILD(Mu :$!VMIO) { }
}

当我尝试使用为 $socket-host 和 $socket-port 定义的 Promises 构造类时，无论出于何种原因，它们在类中的属性最终都变得未定义。我该怎么做才能解决这个问题？

Answer 1

我应该从 Liz 写的开始。将BUILD 切换为TWEAK。然后默认的BUILD 将完成它的工作，并且您的套接字属性将被正确初始化。

下一个问题是&on-close。请参阅Lizmat's answer to Constructors in subclases 显示如何处理该问题，如果您可以修改超类（在本例中为 Tap）或 Jonathan's authoritative answer to Inheriting private attributes in Perl 6（这是关于对另一个类的属性的任何访问），如果您 不能修改超类。

---

请注意，上述两个问题实际上与类中的“私有属性”无关，从而使“公共属性”未定义。类型也不相关。

所有属性在技术上都是私有的。私有/公共的区别在于是否有私有属性的公共访问器。

您的自定义BUILD 只是初始化$!VMIO，它没有公共访问器。您忽略了初始化$!socket-host 和$!socket-port，这些属性 具有公共访问器（由于在声明它们时使用了the public accessor twigil .）。

您可能编写了自定义BUILD，因为默认BUILD 仅使用公共访问器初始化属性。但是，如果这样做，您将承担对象构造的全部责任，并且您必须初始化所有要初始化的属性。

最好写一个TWEAK。然后你可以只处理 没有 公共访问器的属性。 TWEAK 只是向BUILD 添加进一步的初始化，对于默认的BUILD，它只是使用公共访问器的属性的初始化。