Perl中的croak函数

Perl中的croak函数等效于die，不同之处在于它报告调用者上一层。像die一样，此功能也会在将错误报告给STDERR之后退出脚本-

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

当从如下脚本中调用时-

use T;
function();

它将产生以下结果-

模块错误！ at test.pl line 4

与鲤鱼一样，根据警告和模具功能，行和文件信息的包含也应遵循相同的基本规则。