有没有办法覆盖Moo中的构造函数?

时间:2014-12-05 13:04:49

标签: perl moo

我正在研究一个需要在构造函数周围添加包装器的MooX模块。

我尝试过修改方法或让导入方法直接更改*{"${target}::new"}而不起作用。

那我怎么能这样做呢?

1 个答案:

答案 0 :(得分:1)

显然,周围有效:

package MyRole;
use Moo::Role

around new => sub { ... };

但是在添加属性之后需要消耗周围的角色,例如

package MyClass;
use Moo;

has attr1 => (... );
with 'MyRole';