Как эффективно применять замену регулярных выражений по атрибуту Moose?

Question

У меня есть

package Test; 
use Moose; 
has 'attr' => (is => 'rw', isa => 'Str'); 

Внутри метода я хотел бы применить s/pattern/string/g на атрибут. По причинам, документированных в Мус (в основном правильно поддерживать полиморфизм) Я не хочу, чтобы получить доступ к $self->{attr} непосредственно, так просто:

$self->{attr} =~ s/pattern/string/g; 

не вариант. Как я могу сделать это эффективно в скорости и небольшом, но понятном коде с Moose?

Опции я придумал являются:

1) С помощью временной переменной, а обычный метод геттер/сеттер:

my $dummy = $self->attr; 
$dummy =~ s/pattern/string/g; 
$self->attr($dummy); 

2) Использование атр геттер/сеттер на левой стороне :

$self->attr($dummy) =~ s/pattern/string/g; 

Но это, очевидно, выдает ошибку

Невозможно изменить без Lvalue вызова подпрограммы на Test.pm линию 58, строка 29

Есть ли способ использовать Moose аксессор в lvalue subs?

3) Используйте String traits

Пересмотрите атрибут:

has 'attr' => (is => 'rw', isa => 'Str', traits => ['String'], 
       handles => { replace_attr => 'replace'} ); 

Тогда при использовании метода:

$self->replace_attr('pattern', 'string'); 

Однако документы явно говорят, что нет никакого способа, чтобы указать /g флаг.

Любой элегантный, простой, несколько эффективный метод, доступный из коробки?

Answer 1

Я использовал этот подход в прошлом, и я думаю, что он мне подходит для общего использования с точки зрения эффективности и чистоты. Он также работает с модификатором /g.

$self->attr($self->attr =~ s/pattern/string/gr); 

Я подозреваю, что под капотом это то же самое, как ваш первый пример с временной переменной, она просто скрыта от нас.

Обратите внимание, что для использования модификатора /r, возвращающего результат подстановки без изменения оригинала, требуется Perl 5.14+.

Answer 2

Мой вариант (2) и this question обеспечивают идея использовать MooseX::LvalueAttributes:

package Test; 
use Moose; 
use MooseX::LvalueAttribute 'lvalue'; 
has 'attr' => (is => 'rw', isa => 'Str', traits => [lvalue]); 

Это позволяет простой синтаксис:

$self->attr($dummy) =~ s/pattern/string/g; 

Внутренне это использует Variable::Magic и функцию perlsub lvalue, так что есть накладные расходы на производительность для этого подхода, который влияет на каждый доступ к атрибуту «traited», а не только на те, где он используется как левая сторона. Спасибо LeoNerd и ikegami за их корректирующие комментарии к моим предыдущим заявлениям.

Поэтому, подтвержденный документацией модуля, проверка типа Moose по-прежнему работает, и запускаются триггеры.