Сброс атрибута по умолчанию значение

Question

я могу объявить attribut с 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 

Answer 1

Если вы сделаете это:

has 'attr' => (
    is => 'rw', 
    isa => 'Int', 
    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 

Сочетание lazy и clearer важно здесь.