./?Perl/%E3%82%AA%E3%83%96%E3%82%B8%E3%82%A7%E3%82%AF%E3%83%88%E6%8C%87%E5%90%91/Class-Accessor-Fast
Class::Accessor::Fastを使ってアクセサを作るClass::Accessor::Fastはクラスにアクセサを提供するモジュール。 package MyClass; use base qw/Class::Accessor::Fast/; __PACKAGE__->mk_accessors(qw/name address/); #!/usr/local/bin/perl my $obj = MyClass->new( { name => 'taro', address => 'tokyo'} ); print $obj->name, "\n"; # taro $obj->name('jiro'); print $obj->name, "\n"; # jiro
参考 |
|