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