Perl 如何在Moose中自动生成一组绑定到网络服务的setter/getter？

通过自学Moose，我正在研究一个与特定硬件接口的Moose对象。所述硬件采用许多不同的命令来设置硬件的各种属性，对于setter，所有形式都是

PROPERTYNAME=VALUE

，对于getter，所有形式都是

PROPERTYNAME？

（请注意，这些“setter”和“getter”位于硬件的网络接口上）。我要做的是创建一个对象，其中硬件的所有这些属性都是通过类似于接口的属性实现的。由于获取和设置各种属性对所有属性都采用相同的形式，有没有一种方法可以从这些属性的列表中自动生成setter和getter

use strict;
use warnings;

use Moose;

foreach my $prop ( qw( property1 property2 property3 property4 ) ) { 
    has $prop => (
        is => 'rw',
        isa => 'Str',
        reader => "get_$prop",
        writer => "set_$prop",
    );  
}

1;

即：而不是这个：

Package MyHardware;
use Moose;
has property1 => (
    'is' => 'rw',
    'reader' => 'set_property1',
    'writer' => 'get_property1',
);

has property2 => (
    'is' => 'rw',
    'reader' => 'set_property2',
    'writer' => 'get_property2',
);

# ...

has propertyN => (
    'is' => 'rw',
    'reader' => 'set_propertyN',
    'writer' => 'get_propertyN',
);

我可以这样做吗：

Package MyHardware;
use Moose;

attributes => (
    'is' => 'rw',
    'names' => [qw/property1 property2 ... propertyN/],
    'reader' => sub {
        my $self = shift;
        my $property = shift;
        return $self->_send_command("$property?");
    },
    'writer' => sub {
        my $self = shift;
        my $property = shift;
        my $value = shift;
        return $self->_send_command("$property=$value");
    },
);

编辑：以下是我希望发生的事情：

# CALLER:
my $hw = MyHardware->new();
$hw->property1('foo');
print $hw->property2 . "\n";

和“引擎盖下”：

---

在属性上循环怎么样

use strict;
use warnings;

use Moose;

foreach my $prop ( qw( property1 property2 property3 property4 ) ) { 
    has $prop => (
        is => 'rw',
        isa => 'Str',
        reader => "get_$prop",
        writer => "set_$prop",
    );  
}

1;

---

我建议对每个属性使用has而不是单个属性

Package MyHardware;
use Moose;
has properties => (
'is' => 'rw',
'isa' => 'HashRef',
'lazy_build' => 1,
);

sub _build_properties {
    my $self = shift;
    return {
        'property1' => '',
        'property2' => '',
    };
}

print $self->properties->{property1};

---

您不存储任何值，因此不需要属性

您甚至不需要两个sub，因为您希望获取和设置都使用一个名称

for my $prop (qw( property1 property2 property3  )) { 
   my $accessor = sub {
      my $self = shift;
      if (@_) {
         $self->_send_command("$prop=$value");
      } else {
         return $self->_send_command("$prop?");
      }
   };

   no strict 'refs';
   *$prop = $accessor;
}

---

我明白了。我意识到我根本不应该使用属性来做这件事。相反，我将使用如下方式动态生成方法：

通过调用has（）可以有效地将对象状态放在两个位置上——硬件上和实例中——我只希望它放在一个位置。

为实例数据生成getter和setter

---

记住，

的has

看起来像语法，但实际上它只是一个普通的函数调用，在运行时执行。在控制结构中甚至在另一个函数中使用它都没有问题。将变量参数传递给它是没有问题的。这与我想要的非常接近，但是（也许这应该是一个单独的问题）有没有办法将参数传递给作者？这是我应该使用about（）的情况吗？那太好了，除非我认为您不能将闭包指定为'reader'或'writer'的值。我尝试了一下，我得到了：“糟糕的访问器/读取器/写入器/谓词/更清晰的格式，必须是D:/Perl64/lib/Class/MOP/Attribute.pm第366行的散列引用。”@Kit Peters，哦，我知道我为什么困惑了。他的能手和二传手都不是。它们只是普通的无聊潜艇。我已经替换了我的答案。我想你的意思是“*$prop”而不是“*$prog”。）除了使用Class:：MOP:：Class添加访问器之外，我做了类似的事情（见下面的答案）。我相信这是更简单的方法。然而，我这样做是为了了解驼鹿是如何工作的，所以我想看看我想要的是不是可能的。（他想要的是访问器，而不是getter+setter。）你应该坚持使用Moose（

my$meta=\uuuuuuuu-PACKAGE\uuuu->meta（）；

），因为这是他使用的。@ikegami我从Moose文档中得到的。看起来这是个好习惯。你真的在重复我的评论吗？因为这毫无意义。我建议的两件事都更“情绪化”。1） Moose代码通常使用访问器，而不是setter和getter。如果说有什么区别的话，驼鹿的方式就是你所要求的访问者。（但这确实是个人偏好，我的偏好是setters和getter。）2）

my$meta=\uuuuuu-PACKAGE\uuuu->meta（）将是驼鹿的方式。（例如，您可能已经见过
\uuuu-PACKAGE\uuu->meta（）->make\u-immutable（）
一百万次了。）直接访问Class:：MOP看起来确实是错误的，甚至在Moose模块中可能是有害的。@ikegami:per-Moose:：Manual:：MOP:“您还可以使用Class:：MOP:：Class->initialize（$name）为任何类获取元类对象。这比在您不确定该类是否有元方法时调用$class->meta更安全。“诚然，我知道我的类作为Moose将有一个元方法，但作为C:：M:：C->initialize（）将返回现有的元（如果存在），似乎养成这样做的习惯是一种很好的做法。不，如果你不使用驼鹿，把拖把和驼鹿混在一起不仅对我来说是个坏习惯，对我来说甚至没有意义。不需要驼鹿？真是太好了！
my $meta = Class::MOP::Class->initialize(__PACKAGE__);
foreach my $prop (qw/property1 property2 property3/) {
    $meta->add_method(qq/set_$prop/, sub { 
            my $self = shift;
            my $value = shift;
            return $self->_send_command(qq/$prop=$value/);
        }
    );
    $meta->add_method(qq/get_$prop/, sub { 
            my $self = shift;
            return $self->_send_command(qq/$prop?/);
        }
    );
}

BEGIN 
{
    my @attr = qw(prop1 prop2 prop3 prop4);
    no strict 'refs';
    for my $a (@attr)
    {
        *{__PACKAGE__ . "::get_$a"} = sub { $_[0]->{$a}         };
        *{__PACKAGE__ . "::set_$a"} = sub { $_[0]->{$a} = $_[1] };
    }
}