13.3 インスタンスデータを管理する
- オブジェクトハッシュの適切なキーにアクセスして、その値を取得および設定するメソッドを作成する。
sub get_name { my $self = shift; return $sef->{NAME}; } sub set_name { my $self = shift; $self->{NAME} = shift; }
- 引数を渡されたかどうかに応じて、取得および設定を両方するメソッドを作成する。
sub name { my $self = shift; if (@_) { $self->{NAME} = shift } return $self->{NAME}; }
- 新しい値を設定するときに、前の値を返す方法
sub age { my $self = shift; my $oldage = $self->{AGE}; if (@_) { $self->{AGE} = shift } return $oldage; } $previous_age = $obj->age( $obj->age() + $TIME_PASSES };