perl – 如何在Moose中自动生成绑定到网络服务的一堆setter / ge
发布时间:2020-12-15 23:25:34 所属栏目:大数据 来源:网络整理
导读:通过自己教导Moose,我正在研究一个与特定硬件接口的Moose对象.所述硬件采用了许多不同的命令来设置硬件的各种属性,所有形式的PROPERTYNAME = VALUE用于setter,以及PROPERTYNAME?对于getter(请注意,这些’setter’和’getters’位于硬件的网络接口上).我想要
通过自己教导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; (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |