C++ - como el uso de Moose con Perl para OOP

Question

He estado jugando con Moose, sintiéndolo. Me gustaría un ejemplo de funciones virtuales puras, como en C++ pero en el lenguaje de Moose (específicamente en un aspecto de C++). Sé que incluso con Moose imponiendo un modelo más estricto que Perl normal, todavía hay más de una forma de hacer lo que estoy pidiendo (a través de modificadores de método o llamadas SUPER::). Es por eso que estoy pidiendo específicamente una implementación que se asemeje a C++ tanto como sea posible. En cuanto al "¿por qué?" de esta restricción? Principalmente curiosidad, pero también planeaba portar algún código C++ a Perl con Moose de una manera en la que las personas centradas en C++ podrían identificarse con en su mayoría.

Answer 1

que puedo pensar de esta manera el uso de funciones en lugar de subclases:

{ 
    package AbstractRole; 
    use Moose::Role; 
    requires 'stuff'; 
} 

{ 
    package Real; 
    use Moose; 
    with 'AbstractRole'; 
} 

Esto le dará un error de compilación porque el Real no tiene cosas definido.

Adición método cosas al Real ahora hacer que funcione:

{ 
    package Real; 
    use Moose; 
    with 'AbstractRole'; 

    sub stuff { print "Using child function!\n" } 
} 

Answer 2

Aquí es fue mi intento (sin Papeles, para obtener información sobre Roles ver las otras respuestas):

package Abstract; 
use Moose; 

sub stuff; 

package Real; 
use Moose; 
extends 'Abstract'; 

override 'stuff' => sub { print "Using child function!\n"; } 

Answer 3

Parece que no puedo hacer exactamente lo que quiero con alces, pero puede llegar muy cerca con Roles. Aquí está la información del manual de Moose entry para las funciones:

Roles Versus clases abstractas base

Si está familiarizado con el concepto de clases base abstractas en otros idiomas, puede tener la tentación para usar los roles de la misma manera.

Puede definir una función "solo de interfaz" , que solo contiene una lista de métodos necesarios.

Sin embargo, cualquier clase que consume este papel debe implementar todos los métodos necesarios , ya sea directa o través de la herencia de un padre. Usted no puede retrasar el requisito del método para que se puedan implementar en futuras subclases.

Dado que la función define los métodos requeridos directamente, al agregar una clase base a la mezcla no se lograría nada. Recomendamos que simplemente consuma la función de interfaz en cada clase que implementa esa interfaz.

Answer 4

También puede ser que desee echar un vistazo a Jesse Luehrs' MooseX::ABC. Parece muy similar a algunas de las implementaciones aquí. Desde la sinopsis:

package Shape; 
use Moose; 
use MooseX::ABC; 

requires 'draw'; 

package Circle; 
use Moose; 
extends 'Shape'; 

sub draw { 
    # stuff 
} 

my $shape = Shape->new; # dies 
my $circle = Circle->new; # succeeds 

package Square; 
use Moose; 
extends 'Shape'; # dies, since draw is unimplemented 

Sé que Jesse es un programador de C++ durante el día.