perl – MooseX :: NonMoose类中mixins的问题

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;

...

编译时的输出是：

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

我为什么在意？因为当我尝试使用CGI :: Application :: Plugin :: *类时,它希望我在编译时继承CGI :: Application.插件类试图在我的类上调用add_callback作为类方法,但不能,因为我的@ISA尚未设置.

解决这个问题的最佳方法是什么？在BEGIN块中手动调整@ISA会干扰MooseX :: NonMoose吗？

编辑

以下似乎有效,但我发现它令人反感：

package MyApp::CGI;

use Moose;
use MooseX::NonMoose;

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

关于Moose内部人员我不知道(或任何事情,真的)知道这是不是一个好主意.