类似 C++ 的 Moose 与 Perl 的 OOP 用法

Question

我一直在玩弄 Moose，对它有所了解。我想要一个纯虚函数的例子，就像在 C++ 中，但用 Moose 的说法(特别是在 C++ 中)。我知道，即使 Moose 采用了比普通 Perl 更严格的模型，仍然有不止一种方法可以完成我的要求(通过方法修饰符或 SUPER:: 调用)。这就是为什么我特别要求一个尽可能类似于 C++ 的实现。至于“为什么”？这个限制？主要是出于好奇，但也计划将一些 C++ 代码移植到带有 Moose 的 Perl 中，以一种以 C++ 为中心的人大多数可以认同的方式。

Answer 1

我可以想到这种使用角色而不是子类化的方式:

{
    package AbstractRole;
    use Moose::Role;
    requires 'stuff';  
}

{
    package Real;
    use Moose;
    with 'AbstractRole';
}

这会产生编译错误，因为 Real 没有定义stuff。

将 stuff 方法添加到 Real 现在将使其工作:

{
    package Real;
    use Moose;
    with 'AbstractRole';

    sub stuff { print "Using child function!\n" }
}