exception - perl6 在自动激活中捕获非致命异常

Question

我正在对大约 10000 行数字进行分析，其中一些行给了我错误:“在数字上下文中使用 Any 类型的未初始化值”。我正在 try catch 此错误以查看导致问题的行。但是，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" } } }