“无法调用方法“dir_path”在未定义的值上”在命令行运行 Mason 组件时

Question

您好，

我正在尝试为 Mason 组件开发一些测试，这需要在命令行而不是 Web 服务器上运行它们。当我尝试此操作时，出现错误：

perl -MHTML::Mason::Request -MHTML::Mason::Interp -I./lib \
-e '$int = HTML::Mason::Interp->new( data_dir => "/home/friedo/cache", comp_root => "/home/friedo/comps" ); $m = HTML::Mason::Request->new( comp => "/dummy", interp => $int ); $m->comp("/dummy")'

结果：

Can't call method "dir_path" on an undefined value at lib/HTML/Mason/Request.pm line 1123.

尝试调用 ->comp 时抛出错误。我无法弄清楚配置有什么问题。该组件已经存在并且看起来编译得很好，并且它通过 Apache 运行。

这是使用 HTML::Mason 1.35。

编辑：让我们尝试一下这个赏金。另一种选择是我必须深入梅森的内心！ :)

再次编辑：非常感谢David指出我错过的关键细节为了让它发挥作用。

这实际上是针对一个测试框架，该框架需要执行一个调用某些 Mason comps 的模块——在正常操作下，该模块提供了一个 Mason 请求对象以用于该目的，但我无法让它离线工作。关键是使用 Interpreter 对象，所以我最终执行了以下操作，这有点愚蠢，但使测试有效：

sub _mason_out { 
   ...
   my $buf;
   if ( $ENV{MASON_TEST} ) { 
       my $int = HTML::Mason::Interp->new( comp_root  => $self->{env}->comp_dir,
                                           out_method => \$buf );

       $int->exec( $comp, %args );
   } else { 
       my $m = $self->{mason_object};
       $m->comp( { store => \$buf }, $comp, %args );
   }

   return $buf;
}

Answer 1

我认为这会失败，因为您的 Request 对象在调用时尚未构建组件堆栈。请使用 Interp->exec() 方法，如 从独立脚本使用 Mason

perl -MHTML::Mason::Interp -I./lib \
-e 'HTML::Mason::Interp->new( data_dir => "/home/friedo/cache", comp_root => "/home/friedo/comps" )->exec("/dummy")'