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

通过自己教导Moose,我正在研究一个与特定硬件接口的Moose对象.所述硬件采用了许多不同的命令来设置硬件的各种属性,所有形式的PROPERTYNAME = VALUE用于setter,以及PROPERTYNAME？对于getter(请注意,这些’setter’和’getters’位于硬件的网络接口上).我想要做的是创建一个对象,其中硬件的所有这些属性都使用类似属性的接口实现.由于获取和设置各种属性对于所有属性采用相同的形式,是否有办法从这些属性的列表中自动生成setter和getter？

I.E.：而不是：

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";

而“引擎盖下”：

$hw->property1('foo');
# Becomes 
sub { return $hw->_send_command('property1=foo'); }

# And

$hw->property2();
# Becomes
sub { return $hw->_send_command('property2?'); }

解决方法

循环遍历属性怎么样？

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;