在 Moose 中强制强制

Question

我想在每次设置时修改属性的值，无论它是在构造函数中完成还是由“编写器”完成（在这种情况下我不使用“构建器”或“默认”）。基本上属性（不需要'Str'类型）被传递给构造函数，在某些情况下我想在此之后修改它的值，但在每种情况下我都想对它做一些正则表达式（例如）。

我的第一种方法是使用 BUILDARGS 和 around 方法，两者都将使用相同的正则表达式函数，但后来我想知道强制。唯一的问题是我不知道如何创建一个无论如何都会强制强制的子类型/类型定义。

例如：

package Foo;
use Moose::Util::TypeConstraints;

subtype 'Foo::bar' => as 'Str';
coerce 'Foo::bar'
    => from 'Str'
        => via {
            $_ =~ s/some_stuff//g;
            $_ =~ s/other_stuff//g;
            $_ =~ s/some_other_stuff//g;
        };

has 'bar' => (isa => 'Foo:bar', coerce => 1);

我不想用'where'子句定义子类型/类型

subtype 'Foo::bar' => as 'Str' => where {$_ !~ /some_stuff/ && $_ !~ /other_stuff/ && ... };

因为这对我来说似乎很乏味。

编辑：我正在寻找一个全面的解决方案，我不仅可以使用“Str”类型属性，还可以使用“ArrayRef”、“HashRef”等。

Answer 1

听起来你想要trigger。

package Foo;
use Moose;

has 'bar' => (
    is      => 'rw',
    isa     => 'Str',
    trigger => sub {
        my ( $self, $value, $old_value ) = @_;
say 'in trigger';
        # prevent infinite loop
        return if $old_value && $old_value eq $value;

        my $original_value = $value;
        $value =~ s/some_stuff//g;
        $value =~ s/other_stuff//g;
        $value =~ s/some_other_stuff//g;

        # prevent infinite loop
        return if $value eq $original_value;

say '... setting new value';
        $self->bar($value);
    },
);

package main;

my $foo = Foo->new( bar => 'foo some_stuff and other_stuff and some_more_stuff' );
say $foo->bar;

我想在每次设置时修改属性的值，不管 如果它是在构造函数中或由“作家”完成的（我不使用 'builder' 或 'default' 在这种情况下）

这正是触发器的作用。医生几乎一字不差地说出了你的要求：

注意：触发器只会在您分配给属性时触发，无论是在构造函数中，还是使用编写器。默认值和构建值不会导致触发器被触发。

编辑： inifite 循环检测中存在错误。它现在可以工作并将在第二次调用时停止。我留下调试输出来演示。

in trigger
... setting new value
in trigger
foo  and  and some_more_stuff