Question

我制作了一个“捆绑”模块，可以执行大量操作：导入Moose，导入true，namespace::autoclean，使调用者的类不可变（取自{{1 }}）。我无法弄清楚的一件事是如何包含MooseX::AutoImmute。

这是我到目前为止所得到的：

MooseX::Method::Signatures

我的想法是，在我的代码中，我现在可以做这样的事情：

package My::OO;

use Moose::Exporter;
use Hook::AfterRuntime;

use Moose ();
use true ();
use namespace::autoclean ();

my ($import, $unimport, $init_meta) = Moose::Exporter->build_import_methods(
 also => ['Moose'],
);
sub import {
 true->import();

 my $caller = scalar caller;
 after_runtime { $caller->meta->make_immutable };

 namespace::autoclean->import(-cleanee => $caller);

 goto &$import;
}
sub unimport {
 goto &$unimport;
}

1;

但是现在我仍然需要额外添加package My::Class; { use My::OO; extends 'My::Parent'; method foo() { ... } }。如何将其包含在我的OO模块中？

Answer 1

首先，请注意Hook::AfterRuntime的实施非常脆弱。虽然它适用于许多简单的事情，但最终很容易调试错误。我建议您自己编写->meta->make_immutable，或者使用其他方法来编写它，例如MooseX::Declare。

回答你的实际问题：

MooseX::Method::Signatures->setup_for($your_caller);

将MooseX :: Method :: Signatures导入调用者的范围

1 个答案: