如何在Perl中获取追溯？

Question

  

可能重复：
  How do I force a stack backtrace for all fatal errors in Perl?

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

Answer 1

将其添加到脚本的顶部：

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

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

Answer 2

调查Carp::Always模块。