perl - 为什么 die $template->error() 不显示行号？

Question

在以下短节目中:

 use Template;
 my $template = Template->new (INCLUDE_PATH => ".");
 $template->process ("non-existent-file")
      or die $template->error ();

为什么不 die产生行号和换行符？我的输出如下所示:

 ~ 502 $ perl template.pl
 file error - non-existent-file: not found ~ 503 $ 

Answer 1

Template 正在返回 Template::Exception 类型的错误对象。该对象具有重载的字符串化，该字符串化在打印值时应用，但是当 die 查看该值时，它会看到一个引用并且不附加行号和换行符。早先将值强制转换为字符串以解决问题:

use Template;
my $template = Template->new (INCLUDE_PATH => ".");
$template->process ("non-existent-file")
  or die '' . $template->error ();

打印

file error - non-existent-file: not found at scratchpad.pl line 25.