4

私は自分自身にMooseを教えるために、特定のハードウェアに接続するMooseオブジェクトに取り組んでいます。PROPERTYNAME=VALUE上記のハードウェアは、ハードウェアのさまざまなプロパティ、セッターおよびゲッターのすべての形式を設定するさまざまなコマンドを取りますPROPERTYNAME?（これらの「セッター」および「ゲッター」はハードウェアへのネットワークインターフェイス上にあることに注意してください）。私がやりたいのは、ハードウェアのこれらすべてのプロパティが属性のようなインターフェイスで実装されているオブジェクトを作成することです。さまざまなプロパティの取得と設定はすべてのプロパティで同じ形式になるので、それらのプロパティのリストからセッターとゲッターを自動的に生成する方法はありますか？

IE：これではなく：

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?'); }
4

5 に答える 5

5

プロパティをループするのはどうですか？

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;
于 2013-01-28T21:15:37.657 に答える
2

値を格納しないため、属性は必要ありません。

取得と設定の両方に単一の名前が必要なため、2つのサブは必要ありません。

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;
}
于 2013-01-29T01:56:18.510 に答える
2

理解した。これを行うために属性を使用するべきではないことを理解しています。代わりに、次のようにClass :: MOP::Classを使用してメソッドを動的に生成します。

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?/);
        }
    );
}

has（）の呼び出しでそれを行うと、オブジェクトの状態がハードウェアとインスタンスの2つの場所に効果的に配置され、1つだけが必要になります。

于 2013-01-29T17:32:18.903 に答える
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};
于 2013-01-28T23:56:31.597 に答える
1

インスタンスデータのゲッターとセッターを生成する

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] };
    }
}

于 2013-03-15T19:27:37.040 に答える