getterとsetter
getPiyoPiyo、setPiyoPiyoではなく、piyo_piyoを1つ作り、引数によってgetter/setterを切り替えるプロパティっぽいのが一般的みたい。
sub name { my($self, $name) = @_; return defined($name) ? ($self->{name} = $name): $self->{name}; }
たぶんこんな感じ。
getPiyoPiyo、setPiyoPiyoではなく、piyo_piyoを1つ作り、引数によってgetter/setterを切り替えるプロパティっぽいのが一般的みたい。
sub name { my($self, $name) = @_; return defined($name) ? ($self->{name} = $name): $self->{name}; }
たぶんこんな感じ。