Perl中的carp函数

Perl中的carp函数与warn基本等效，可以将消息打印到STDERR，而无需实际退出脚本并打印脚本名称。

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

当从如下脚本中调用时-

use T;
function();

它将产生以下结果-

Error in module! at test.pl line 4