perl - テスト ケースが成功した場合 (およびその場合のみ)、Perl テストでチェックを実行する

Question

Perl での単体テストに Test::Unit::TestCase を使用しています。現在のテストがこれまで成功した場合にのみ、tear_down サブで特別なアサーションを行う方法はありますか。

sub set_up {
  my ($O_self) = @_;

  # prepare test case
}

sub tear_down {
  my ($O_self) = @_;

  # how to check if test succeeds so far?
  if (...) {
    $O_self->assert_something_special_for_all_tests();
  }
}

sub test_any1 {
   # some test
}

sub test_any2 {
   # some other test
}

もちろん、各テストの最後に特別なチェックを行うこともできますが、特別なチェックを忘れないように、tear_down 内で行う方がはるかに優れています。