¿Puedo crear interfaces tipo Java en Perl?

Question

Entiendo que el modelo OO de Perl es bastante primitivo; es, en la mayoría de los aspectos, esencialmente un hack de espacio de nombres.

Sin embargo, me pregunto si es posible crear algo así como una "interfaz?" Mi objetivo es tener una clase base a partir de la cual se amplíen otras cuyo principal objetivo sea hacer obligatoria la implementación de ciertos métodos (por nombre está bien, sin firma necesaria) por esas subclases. Realmente no me importa si se trata de una clase "puramente virtual" (como una "interfaz" en Java) o una clase concreta con stubs de implementación reales para esos métodos en la superclase, pero lo que quiero es que sea determinísticamente necesario que el la subclase implementa ciertos métodos de la superclase.

¿Esto es posible? ¿Si es así, cómo?

Answer 1

Creo que toda la idea de que obliga a la implementación/sobrecarga de las funciones de la clase base/subs es extranjera a Perl. ¿En qué punto imaginaría que el mecanismo de aplicación funciona?

Si está de acuerdo con hacer esto en tiempo de ejecución, puede morir si se llama a la implementación de su clase base.

EDITAR: En realidad, sí, Class :: Contract parece ser el camino a seguir.

Answer 2

No estoy seguro de cómo podrá implementarlo. Sin embargo, eche un vistazo a Moose, que es "Un sistema de objetos posmoderno para Perl 5".

• Moose::Manual
• Moose::Cookbook

Answer 3

solución simple que crea errores en tiempo de ejecución:

package SomeVirtualClass; 

use strict; 
use warnings; 

use Carp; 

sub some_method { croak "virtual method some_method not overridden" } 

Answer 4

El Class::Contract puede ayudar con esto. Admite la verificación de contratos en tiempo de compilación.

Answer 5

Aquí es una respuesta utilizando Moose ...

package Comparable; 
use Moose::Role; 

requires 'eq'; 

package Person; 

has size => (
    is => 'ro', 
    does => 'Comparable', 
); 

Ahora el atributo de tamaño debe ser un objeto que implementa la "interfaz" comparable. En Moose-land, las interfaces son roles, y los roles pueden ser más que solo una definición de interfaz.

Answer 6

que tienen un patrón de peso ligero que llamo "compatible", y analizar el caso en mi respuesta a How important is it to indicate if a class implements an interface in Perl?

Es sólo una cuestión de pegarse paquetes seudo en @ISA:

our @ISA = qw<... X::Compatible ...>; 

Usted romper su código de si no haces lo que esperan del X. En la práctica, tengo un montón de comportamientos documentados que reutilizo, pero una clase que me dice que es X::Compatible es lo que uso para asegurarme de que puede hacer lo que espero.

Desde Perl 5.10 ha introducido el concepto DOES, que es lo más ligero, un objeto X::Compatible hereda de una clase base Object::Compatible que implementa una base DOES mirando a través de @ISA para /::Compatible$/ y respuesta de manera afirmativa por nada allí.La idea es que:

$object->DOES($x) == $object->isa($x . '::Compatible')