perl – 从另一个Moose对象实例化Moose对象的正确方法？

发布时间：2020-12-15 21:57:07 所属栏目：大数据来源：网络整理

导读：从另一个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()

从另一个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

希望有所帮助.

（编辑：李大同）

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