perl – 如何在运行时替换Moose对象的方法？

是否可以在运行时替换Moose对象的方法？
通过查看 Class::MOP::Method的源代码( Moose::Meta::Method继承自),我得出结论

$method->{body} = sub{ my stuff }

我可以在运行时替换对象的方法.
我可以使用该方法

$object->Meta->find_method_by_name(<method_name>);

但是,这并没有完全奏效.

是否可以在运行时修改方法？而且,与Moose一起做的方法是什么？

解决方法

麋与否,这听起来不是一个好主意.

相反,将对象设计为具有该方法的访问器.例如,您班级的用户可以使用My :: Frobnicator-> frobnicator->()来获取和调用frobnicator方法并使用My :: Frobnicator-> frobnicator(sub {})来设置它.