如何在Perl中获取追溯？

Question

可能重复:
如何对Perl中的所有致命错误强制执行堆栈回溯？

我喜欢Python的一个方面是,当一个脚本因为错误而退出时,它会抛出一个回溯.我想知道是否还有Perl这样做呢？

Answer 1

将其添加到脚本的顶部:

use Carp 'verbose';
$SIG{ __DIE__ } = sub { Carp::confess( @_ ) };

它将在所有致命错误上创建堆栈跟踪.

Answer 2

调查Carp :: Always模块.