2010-01-15から1日間の記事一覧
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 …
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 …