在perl 5中,我将使用任何Carp函数.在perl 6中,搜索没有帮助,trace pragma将打印所有堆栈,而不仅仅是我想要的堆栈.我只能使用抛出异常,捕获它并打印它的旧hack：
try {
X::AdHoc.new(payload => 'Stack').throw;
CATCH { when X::AdHoc { .say; } }
}
或者,有点懒惰：
{
die;
CATCH { default { .say } }
}
这样做的正确方法是什么？