perl - Perl Moo，动态生成的访问器

Question

我尝试将 Perl 闭包转换为 Moo 访问器，如下面的代码所示。不幸的是，该代码适用于 Moose，但会引发 Moo 异常。

请帮助我使用 Perl 闭包定义的读写访问器编写 Moo 代码（不是仅读取和存储简单值的默认访问器，而是应该调用我的闭包的读写访问器）。

#!/usr/bin/perl

package X;
use Moo;

my $BusinessClass = "X";
my $Key = 'zz';

no strict 'refs';
*{"${BusinessClass}::access_$Key"} = sub { "Modified $Key" };
has $Key => ( is        => 'rw',
              required  => 0,
              accessor  => { $Key => \&{"${BusinessClass}::access_$Key"} },
              # predicate => { "has_$Key",\&{"${BusinessClass}::access2_$Key"} },
            );

my $obj = X->new;
print $obj->zz, "\n";

Answer 1

Moo'shas似乎没有accessor选择。

#!/usr/bin/perl

package X;

use Moo;
use feature qw( say );

for my $attr_name (qw( zz )) {
   eval(<<'__EOS__' =~ s/ATTR_NAME/$attr_name/gr) or die($@);
      sub ATTR_NAME {
          my $self = shift;
          @_ ? $self->_set_ATTR_NAME($_[0]) : $self->_get_ATTR_NAME()
      }

      1;  # No exception
__EOS__

   has $attr_name => (
      is       => 'rw',
      required => 0,
      reader   => '_get_'.$attr_name,
      writer   => '_set_'.$attr_name,
   );
}

my $obj = X->new;
$obj->zz("abc");
say $obj->zz;

未经测试。