読者です 読者をやめる 読者になる 読者になる

Perlでアクセッサを実装

sub hoge{
  my $self = shift;

  if(@_) {
    $self->{name} = $_[0];
  }
  return $self->{name};
}

と、いちいち関数を書いてあげにゃなりませんが、
Class::Accessorを継承して

package Sample;

use base qw(Class::Accessor);
__PACKAGE__->mk_accessors(qw(hoge ........));

とやると、mk_accessorsに記述した値を

my $sample = Sample->new();

# get
my $val = $sample->hoge();

# set
$sample->hoge($val);

のようにして扱うことができます。
ただ、継承の継承とかやっていくとどうしていいかよく分からなくなる...

※こんなネタくそ古いのでだまってMoose使おうよ。かわいいよ。