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 };