¿Hay un OO Perl equivalente a una interfaz?

Question

Sé con OO Perl Puedo tener objetos y herencia, pero ¿están implementadas las interfaces? Si es así, ¿cómo se hacen cumplir?

Answer 1

Puede crear una clase virtual pura (o papel si está utilizando o MooseMooseX::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" }; 

Pero la ejecución será en tiempo de ejecución. En general, las interfaces son necesarias porque el lenguaje no admite herencia múltiple y está estrictamente tipado. Perl admite herencia múltiple y (usando Moose) algo así como herencia múltiple (pero mejor) llamados roles y se escribe de forma dinámica. La tipificación estricta vs dinámica se reduce a pato escribir (si grazna() como pato, camina() como un pato, y nada() como un pato, entonces es un pato). En Perl, usted dice:

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

Answer 2

En Perl OO tradicional, se aplica muy poco. Usted tiene la opción de $ obj-> can ('methodname') para pato-escribir lo que está usando, pero no hay nada como una interfaz.

(Pero echar un vistazo a los alces, los Roles en no puede ser lo que está buscando.)

Answer 3

¡Pero por supuesto! Class::Interface.

Dicho esto, primero miro a Moose. Es fantástico.

Answer 4

las interfaces son necesarios porque el idioma no es compatible con

interfaz de programación orientada a objetos es un concepto. No son necesarios debido a un problema técnico.