Puis-je créer des interfaces de type Java dans Perl?

Question

Je comprends que le modèle OO de Perl est plutôt primitif; il s'agit, à bien des égards, essentiellement d'un hack de l'espace de noms. Néanmoins, je me demande s'il est possible de créer quelque chose comme une «interface»? Mon but est d'avoir une classe de base à partir de laquelle d'autres sont étendues dont le but principal est de rendre obligatoire l'implémentation de certaines méthodes (par le nom est bien, aucune signature nécessaire) par ces sous-classes. Peu m'importe si c'est une classe "purement virtuelle" (comme une "interface" en Java) ou une classe concrète avec des stubs implémentationnels réels pour ces méthodes dans la superclasse, mais ce que je veux, c'est rendre déterministe le fait que sous-classe implémenter certaines méthodes de la superclasse.

Est-ce possible? Si c'est le cas, comment?

Answer 1

Je pense que l'idée de mandater la mise en œuvre/surcharge des fonctions de classe de base/sous-marins est étranger à Perl. À quel moment envisageriez-vous le mécanisme d'exécution?

Si cela vous convient au moment de l'exécution, vous pouvez mourir si l'implémentation de votre classe de base est appelée.

EDIT: En fait, oui, Class :: Contract semble être le chemin à parcourir.

Answer 2

Je ne sais pas comment vous pourrez l'implémenter. Cependant, jetez un oeil à Moose, qui est "Un système d'objet postmoderne pour Perl 5".

• Moose::Manual
• Moose::Cookbook

Answer 3

solution simple qui crée des erreurs lors de l'exécution:

package SomeVirtualClass; 

use strict; 
use warnings; 

use Carp; 

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

Answer 4

Le Class::Contract peut aider avec ceci. Il prend en charge la vérification des contrats à la compilation.

Answer 5

est ici une réponse en utilisant Moose ...

package Comparable; 
use Moose::Role; 

requires 'eq'; 

package Person; 

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

Maintenant, l'attribut de taille doit être un objet qui implémente l'interface « » Comparable. Dans Moose-land, les interfaces sont des rôles, et les rôles peuvent être plus qu'une simple définition d'interface.

Answer 6

J'ai un modèle léger que j'appelle « Compatible », et je discuter dans ma réponse à How important is it to indicate if a class implements an interface in Perl?

Il est juste une question de coller des paquets pseudo dans @ISA:

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

Vous cassez leur code si vous ne faites pas ce qu'ils attendent de X. En pratique, j'ai un tas de comportements documentés que je réutilise, mais un cours qui me dit que c'est X::Compatible est ce que j'utilise pour m'assurer qu'il peut faire ce que j'attends.

Depuis perl 5.10 a introduit le concept DOES, qui est à peu près aussi léger, un objet X::Compatible hérite d'une classe de base Object::Compatible qui met en œuvre une base DOES en regardant à travers @ISA pour /::Compatible$/ et répondre par l'affirmative pour quoi que ce soit là-dedans.L'idée est la suivante:

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