从另一个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一起工作吗?
解决方法
在您的选择中,$obj-> Meta-> name-> new()或(祝福$obj) – > new()都是最安全的.
实现traits的方式,您创建一个匿名子类并将角色应用于该子类,并将实例重新处理到该子类中.这意味着这些解决方案中的任何一个都可以与特征一起使用. 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
希望有所帮助.
原文地址:https://www.jb51.cc/Perl/171804.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。