raku - 如何使 Perl 6 类最终？

Question

例如，我有这样的代码:

class Foo {}
class Bar is Foo {}

尽管此操作的实用性值得商榷，但是否可以禁止从 Foo 继承？ ?

Answer 1

Perl 6 语言中没有禁止类继承的内置方法，这是一个故意做出的设计决定。即使使用元编程也不清楚是否可以实现这一点，因为继承行为是由子类驱动的，父类在这个过程中没有发言权。

但是，可以通过将单个方法声明为 submethod 来将它们标记为未被继承。而不是 method .

class P {
    submethod m() { say "not inherited" }
}
class C is P {
}

say ?P.can('m');  # True
say ?C.can('m');  # False