Problema con mixins en una clase MooseX :: NonMoose

Question

considerar lo siguiente:

package MyApp::CGI; 

use Moose; 
use MooseX::NonMoose; 
use Data::Dumper; 

extends 'CGI::Application'; 

BEGIN { 
    print "begin isa = " . Dumper \@MyApp::CGI::ISA; 
}; 

print "runtime isa = " . Dumper \@MyApp::CGI::ISA; 

... 

La salida cuando este se compila:

begin isa = $VAR1 = [ 
      'Moose::Object' 
     ]; 
runtime isa = $VAR1 = [ 
      'CGI::Application', 
      'Moose::Object' 
     ]; 

por qué me importa? Porque cuando intento use una clase CGI :: Application :: Plugin :: *, espera que herede de CGI::Application en tiempo de compilación. La clase de complemento intenta llamar al add_callback como un método de clase en mi clase, pero no puede, porque mi @ISA aún no está configurado.

¿Cuál es la mejor manera de resolver esto? ¿Ajustar manualmente @ISA en un bloque BEGIN interferir con MooseX::NonMoose?

Editar

El siguiente parece funcionar, pero me resulta ofensiva:

package MyApp::CGI; 

use Moose; 
use MooseX::NonMoose; 

use base 'CGI::Application'; 
extends 'CGI::Application'; 

No sé lo suficiente (o nada, en realidad) sobre el funcionamiento interno de los alces saber si esto es una buena idea.

Answer 1

no encuentro use base 'CGI::Application'; extends 'CGI::Application'; a ser terriblemente espantosa, ya que hace exactamente lo que necesita:

• en tiempo de compilación, @ISA contiene 'CGI::Application', que satisface exactamente los requisitos de uso de CGI :: Application :: Plugin :: *
• En tiempo de ejecución, su clase es un descendiente Moose de CGI::Application, con todos los beneficios consiguientes (pudiendo diseñar la composición de su clase con la bondad meta de Moosey). Solo después de encontrar la línea extends 'CGI::Application' se realiza cualquier trabajo (es decir, se invocan métodos en su clase) que se basan en el trabajo realizado por la declaración extends: que su clase desciende de Moose::Object y tiene una metaclase instalada.

Dicho esto, la solución de jrockway también debería funcionar:

BEGIN { extends 'CGI::Application' } 

... donde se obtiene toda la bondad meta Moosey sólo un poco antes de lo previsto desde el momento en que lo necesite, y no debe ser también antes de lo previsto, siempre que ya haya llamado use Moose y use MooseX::NonMoose para definir extends.

_{(Adición:. Ahora estoy ponderando las complejidades complilational de la creación de la capacidad de forzar el análisis de una palabra clave en tiempo de compilación que se analizan de inmediato, como si estuvieran envueltos en un bloque BEGIN por ejemplo, algo así como si Moose.pm declaró use compiletime qw(extends). Sería una buena pieza de azúcar sintáctico seguro.)}