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

发布时间：2020-12-15 23:26:22 所属栏目：大数据来源：网络整理

导读：我做了一个“捆绑”模块,它做了很多事情：导入Moose,导入true,namespace :: autoclean,使调用者的类不可变(取自MooseX :: AutoImmute).我无法弄清楚的一件事是如何包含MooseX :: Method :: Signatures. 这是我到目前为止所得到的： package My::OO;use Moose

我做了一个“捆绑”模块,它做了很多事情：导入Moose,导入true,namespace :: autoclean,使调用者的类不可变(取自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() { ... }
}

但是现在我仍然需要额外使用MooseX :: Method :: Signatures;.如何将其包含在我的OO模块中？

解决方法

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

要回答您的实际问题：

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!