perl6在自动生存中捕捉非致命异常

Question

我正在对大约10000行数字进行分析，其中一些行给我错误：“在数字上下文中使用类型为Any的未初始化值”。我正在尝试捕获此错误，以查看导致问题的行。但是，X :: TypeCheck和其他X :: *类似乎无法有效地捕获Nil或Any的自动生存。例如：

try { say Any + 1; CATCH { default { say "oh-no"; } }; }

在打印出警告消息后仍然给我答案“ 1”，并且没有说我想要的“哦-不”。

捕获这些非致命性自身存活错误的正确方法是什么？顺便说一句，有没有一个核动力的perl6调试器？

非常感谢您！

lisprog

Answer 1

使用quietly和CONTROL代替try和CATCH：

quietly { say Any + 1; CONTROL { default { say "oh-no" } } }