Perl中的confess函数

Perl中的confess函数类似于cluck;它调用die，然后打印一个堆栈跟踪，一直到初始脚本。

package T;
require Exporter;
@ISA = qw/Exporter/;
@EXPORT = qw/function/;
use Carp;
sub function {
   confess "Error in module!";
}
1;

当从下面的脚本中调用时

use T;
function();

它将产生以下结果

Error in module! at T.pm line 9
   T::function() called at test.pl line 4