Запись в атрибуты только для чтения внутри класса Perl Moose

Question

Использование Perl и Moose, доступ к объектным данным можно получить двумя способами.

$self->{attribute} или $self->attribute()

Вот простой пример, демонстрирующий, как:

# Person.pm 
package Person; 

use strict; 
use warnings; 
use Moose; 

has 'name' => (is => 'rw', isa => 'Str'); 
has 'age' => (is => 'ro', isa => 'Int'); 

sub HAPPY_BIRTHDAY { 
    my $self = shift; 
    $self->{age}++; # Age is accessed through method 1 
} 

sub HAPPY_BIRTHDAY2 { 
    my $self = shift; 
    my $age = $self->age(); 
    $self->age($age + 1); # Age is accessed through method 2 (this will fail) 
} 

1; 

---

# test.pl 
#!/usr/bin/perl 

use strict; 
use warnings; 
use Person; 

my $person = Person->new(
    name => 'Joe', 
    age => 23, 
); 

print $person->age()."\n"; 

$person->HAPPY_BIRTHDAY(); 
print $person->age()."\n"; 

$person->HAPPY_BIRTHDAY2(); 
print $person->age()."\n"; 

Я знаю, что, когда вы находитесь за пределами файла Person.pm, лучше использовать $person->age() так как это мешает вам совершать немые ошибки и не позволит вам переписать значение только для чтения, но мой вопрос ...

Внутри из Person.pm это лучше всего использовать $self->{age} или $self->age()? Является ли неправильной практикой перезаписывать атрибут только для чтения в пределах сам модуль?

Если этот атрибут должен быть изменен на атрибут чтения/записи, если его значение когда-либо ожидается изменить или считается приемлемым для переопределения аспекта атрибута только для чтения с использованием $self->{age} в функции HAPPY_BIRTHDAY?

Answer 1

При использовании Лось, лучшие практики всегда использовать созданные методы доступа, даже если они находятся внутри собственного класса объекта. Вот несколько причин:

1. Методы доступа могут быть перечеркнуты дочерним классом, который делает что-то особенное. Вызов $self->age() гарантирует, что будет вызван правильный метод.

2. Могут быть модификаторы метода, такие как before или after, прикрепленные к атрибуту. Доступ к хэш-значению напрямую будет пропущен.

3. К атрибуту может быть применен предикат или более четкий способ (например, has_age). Мессинг с хэш-значением напрямую смутит их.

4. Ключи хэши подлежат опечаткам. Если вы случайно скажете $self->{aeg}, ошибка не будет сразу же обнаружена. Но $self->aeg умрет, так как метода не существует.

5. Последовательность - это хорошо. Нет причин использовать один стиль в одном месте и другой стиль в другом месте.Это делает код более понятным для новичков.

В конкретном случае атрибут только для чтения, вот некоторые стратегии:

1. сделать ваши объекты действительно неизменны. Если вам нужно изменить значение, создайте новый объект, который является клоном старого с новым значением.

2. Используйте атрибут только для чтения, чтобы сохранить реальный возраст, а также указать частный метод писатель

Например:

package Person; 
use Moose; 

has age => (is => 'ro', isa => 'Int', writer => '_set_age'); 

sub HAPPY_BIRTHDAY { 
    my $self = shift; 
    $self->_set_age($self->age + 1); 
} 

Обновление

Вот пример о том, как вы можете использовать ленивый построитель для установки одного атрибута на основе другого.

package Person; 
use Moose; 

has age  => (is => 'rw', isa => 'Int', lazy => 1, builder => '_build_age'); 
has is_baby => (is => 'rw', isa => 'Bool', required => 1); 

sub _build_age { 
    my $self = shift; 
    return $self->is_baby ? 1 : 52 
} 

Ленивый строитель не вызывается, пока age не доступен, так что вы можете быть уверены, что is_baby будет там.

Установка элемента хэша напрямую будет, конечно, пропустить метод построения.

Answer 2

Я не думаю, что $self->{age} является документированным интерфейсом, поэтому он даже не гарантированно работает.

В этом случае я бы использовать частный писатель, как описано в https://metacpan.org/pod/Moose::Manual::Attributes#Accessor-methods:

has 'weight' => (
    is  => 'ro', 
    writer => '_set_weight', 
); 

Можно даже автоматизировать это с помощью 'rwp' из https://metacpan.org/pod/MooseX::AttributeShortcuts#is-rwp:

use MooseX::AttributeShortcuts; 

has 'weight' => (
    is => 'rwp', 
); 

Answer 3

Исходный код perl не безопасен по типу и не имеет большого количества инкапсуляции, поэтому легко делать безрассудные вещи. Муз накладывает на ваш объект perl некоторую цивилизацию, обменивая безопасность и стабильность для некоторой свободы. Если Moose становится слишком удушающим, основной Perl все еще существует, поэтому есть способы обойти любые законы, которые пытается уловить железный кулак Муса.

После того, как вы положили голову на то, что вы объявили атрибут только для чтения, но хотите его изменить, хотя вы также сказали, что хотите, чтобы он был доступен только для чтения, и в большинстве юниверсов вы заявляете что-то прочитано только потому, что вы не хотите его менять, тогда непременно выполните обновление и обновите $person->{age}. В конце концов, вы знаете, что делаете.