getterとsetter

getPiyoPiyo、setPiyoPiyoではなく、piyo_piyoを1つ作り、引数によってgetter/setterを切り替えるプロパティっぽいのが一般的みたい。

sub name
{
    my($self, $name) = @_;
	
    return defined($name) ?
        ($self->{name} = $name): $self->{name};
}

たぶんこんな感じ。