Perl中的巧妙功能

Perl中的cluck函数是一种增压鲤鱼，它遵循相同的基本原理，但还会打印导致该函数被调用的所有模块的堆栈跟踪，包括原始脚本中的信息。

package T;
require Exporter;
@ISA = qw/Exporter/;
@EXPORT = qw/function/;
use Carp qw(cluck);
sub function {
   cluck "模块错误！";
}
1;

当从如下脚本中调用时-

use T;
function();

它将产生以下结果-

模块错误！ at T.pm line 9
   T::function() called at test.pl line 4