perl - Perl/Tk + AnyEvent で MainLoop を停止する方法

Question

AnyEvent のタイマーを使用する Perl/Tk プログラムを書いています。タイマーがアクティブな場合、ウィンドウを閉じるのに問題があります。このウィンドウを閉じるハンドラーを作成しました：

$self -> {window} -> protocol( 'WM_DELETE_WINDOW' => sub {
                                                   undef $self -> {timer};
                                                   $self -> {window} -> destroy;
});

ウィンドウを閉じるときにタイマーがアクティブな場合、タイマーは停止し、ウィンドウは閉じますが、MainLoop は停止しません。どうしたの？