MooseX::NonMoose 类中 mixin 的问题

Question

请考虑以下事项：

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 内部结构的了解不够（或任何东西，真的），不知道这是否是一个好主意。

Answer 1

我找不到 use base 'CGI::Application'; extends 'CGI::Application'; 非常可怕，因为它正是您所需要的：

• 在编译时，@ISA 包含 'CGI::Application' ，它完全满足 CGI::Application::Plugin::* 的使用要求。
• 在运行时，你的类是一个 Moose CGI::Application 的后代，以及随后的所有好处（能够利用 Moosey 元优点来设计班级的构成）。只有在遇到 extends 'CGI::Application' 行之后，依赖于 extends 声明：您的类源自 Moose::Object 并且您安装了一个元类。

也就是说，jrockway 的解决方案也应该有效：

BEGIN { extends 'CGI::Application' }

...您可以在需要时提前一点获得所有 Moosey 元优点，而且不应该提前太多，前提是您已经调用了 use Moose 和 use MooseX::NonMoose 来定义 extends。

_{（附录：现在我正在思考创建在编译时强制解析关键字的能力的编译复杂性，这些关键字会立即解析，例如如果它们被包装在 BEGIN 块中例如，如果 Moose.pm 声明了 usecompiletime qw(extends) 这肯定是一个很好的语法糖。）}