Class::Accessorについて

gistfile1.md

Class::Accessorについて

これでClass::Accessorの内部実装がわかる。

perldoc -m Class::Accessor

documentはこっち

perldoc Class::Accessor

こんなかんじのClassがあったとすると、

package My::Class;

use base qw(Class::Accessor);

__PACKAGE__->mk_accessors( qw(name salary) );

こんなかんじで値を入れてインスタンスを作成すれば、以下の様にしてget, setできる。

my $obj = My::Class->new({ name => "junji", salary => "100"});

# gets
my $name = $boj->name;

# sets
$obj->salary(40000);

参考: [http://en.yummy.stripper.jp/?eid=260082]