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

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 …