13.2 オブジェクトを破棄する

オブジェクトが不要になったら、その度に特別なコードを実行する。

• DESTROYと言うメソッドを使う。オブジェクトの参照が切れたとき、プログラムが終了するときに呼び出される。

sub DESTROY {
  my $self = shift;
  printf("$self dying at %s\n", scalar localtime);
}