perl - 是否存在与接口(interface)等效的 OO Perl？

Question

我知道使用 OO Perl 我可以拥有对象和继承，但是接口(interface)实现了吗？如果是这样，它们是如何执行的？

Answer 1

您可以创建一个纯虚拟类(或角色，如果您使用 Moose 或 MooseX::Declare ):

package Foo;

use strict;
use Carp;

sub new  { croak "new not implemented" };
sub do_x { croak "do_x not implemented" };
sub do_y { croak "do_y not implemented" };

但执行将在运行时进行。通常，需要接口(interface)，因为该语言不支持多重继承并且是严格类型的。 Perl 支持多重继承和(使用 Moose)类似多重继承(但更好)的东西，称为角色，它是动态类型的。严格类型与动态类型归结为鸭子类型(如果它像鸭子一样 quacks()、像鸭子一样的 walks() 和像鸭子一样的 Swims()，那么它就是鸭子)。在 Perl 中，你说:

if ($some_obj->can("quack") {
    $some_obj->quack;
} else {
    croak "incompatible class type: ", ref $some_obj;
}