Class::Accessor - アクセサの自動生成 - perldoc.jpClass::Accessor - アクセサの自動生成 概要¶ package Foo; use base qw(Class::Accessor); Foo->mk_accessors(qw(this that whatever)); # Meanwhile, in a nearby piece of code! # Class::Accessor provides new(). my $foo = Foo->new; my $whatever = $foo->whatever; # $foo->{whatever}を取得 $foo->this('likmi'); # $foo->{this} = 'likmi'に設定 # @values = @{$foo}{qw(that whatever)}と同じ @values = $foo->get(qw(that whatever)); # $f
