アクセサ(4) Class::Accessor - ぱるも日記CPANからのインストールも済んだので、Class::Accessorの使い方を勉強します。 といっても、使い方はとっても簡単です。Class::Accessor を継承すれば mk_accessors というクラスメソッドが使えるようになります。このメソッドに「属性名のリスト」を渡せば、自動的にその属性に対するアクセサ（getter/setter）を作ってくれます。 Class::Structの時に書いたコード を Class::Accessor を使って書き換えてみます。 package Person; use strict; use base qw(Class::Accessor); Person->mk_accessors(qw(name age)); sub introduce { my $self = shift; print "I am " . $self->name();
