perl – 将属性重置为默认值

发布时间：2020-12-16 06:23:08 所属栏目：大数据来源：网络整理

导读：我可以像这样宣布与Moose的关系： has 'attr' = (is = 'rw',isa = 'Int',default = 10); 是否可以将此值重置为默认值？例： $obj-attr(5); # sets attr to 5$obj-_reset_attr;print $obj-attr; # will print 10 解决方法如果你这样做： has 'attr' = ( is

我可以像这样宣布与Moose的关系：

has 'attr' => (is => 'rw',isa => 'Int',default => 10);

是否可以将此值重置为默认值？

例：

$obj->attr(5); # sets attr to 5
$obj->_reset_attr;
print $obj->attr; # will print 10

解决方法

如果你这样做：

has 'attr' => (
  is => 'rw',lazy => 1,default => 10,clearer => '_clear_attr',);

然后你可以这样做：

my $obj = Class->new;
print $obj->attr; # 10
$obj->attr(5);
print $obj->attr; # 5
$obj->_clear_attr;
print $obj->attr; # 10

懒惰和清晰的组合在这里很重要.

（编辑：李大同）

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