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
广告