Есть ли эквивалент OO Perl для интерфейса?

Question

Я знаю с OO Perl У меня могут быть объекты и наследование, но реализованы ли интерфейсы? Если да, то как они применяются?

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" }; 

Но принудительное исполнение будет во время выполнения. В общем, интерфейсы необходимы, потому что язык не поддерживает множественное наследование и строго типизирован. Perl поддерживает множественное наследование и (используя Moose) нечто вроде множественного наследования (но лучше), называемого ролями, и оно динамически типизируется. Строгая и динамическая типизация сводится к утиному набору текста (если она уклоняется(), как утка, ходит(), как утка, и плавает() как утка, то это утка). В Perl вы говорите:

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

Answer 2

В традиционном Perl OO очень мало соблюдается. У вас есть опция $ obj-> can ('methodname') для утиного типа, что вы используете, но нет ничего похожего на интерфейс.

(Но взгляните на лося, роли в там может быть то, что вы после этого.)

Answer 3

Но, конечно же! Class::Interface.

Тем не менее, я сначала посмотрю на Муз. Это фантастически.

Answer 4

интерфейсы необходимы, потому что язык не поддерживает

интерфейс является концепция ООП. Они не нужны из-за технической проблемы.