> 
> eval {
> 	$moge = new Moge();
> 	$moge->initialize();
> 	$moge->execute();
> 	$moge->destoroy();
> }; if (isException('Moge::Fobbiden') {
> 	$moge->destoroy();
> 	$@->printMessage();
> } elsif (isException('Moge::UnknownQuery') {
> 	$moge->destoroy();
> 	$@->printMessage();
> } elsif (isOtherException()) {
> 	STDERR->print("Error: $@");
> }
> こんな感じの例外処理モジュールつくった(`Д´)

On Error Resume Next

参考：2001/07/25(水)23時28分19秒