从另一个Moose对象创建实例的正确方法是什么?在实践中,我已经看到了很多方法:
$obj->meta->name->new()
$obj->new() ## which has been deprecated and undeprecated
(blessed $obj)->new()
-- and, its bastard variant: (ref $obj)->new()
$obj->meta->new_object()
然后,如果你有traits怎么办?是否有透明的方式来支持它?这些中的任何一个都适用于anonymous classes吗?
答案 0 :(得分:6)
在您的选择中,$obj->meta->name->new()
或(blessed $obj)->new()
都是最安全的。
实现特征的方式,您创建一个匿名子类并将角色应用于该子类,并将实例重新处理到该子类中。这意味着这些解决方案中的任何一个都可以与特征一起使用。 Perl缺少真正的匿名子类(每个包都必须有名称空间),Moose通过在匿名类的通用名称空间中创建名称来解决这个问题。
如果您花了一秒钟尝试一些示例代码,您会看到这一点。
$perl -Moose -E'with q[MooseX::Traits];
package Role; use Moose::Role;
package main; say Class->with_traits(q[Role])->new->meta->name'
MooseX::Traits::__ANON__::SERIAL::1
希望有所帮助。