Class::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
{{#tags}}- {{label}}
{{/tags}}