perl - Catalyst 中的调试屏幕更简洁？

Question

在我的阶段服务器中，我想激活调试，以便客户端可以在应用程序进入生产服务器之前自行发现错误。

但我只想要消息的第一部分，而不是请求或 session 数据。

例如:无法渲染模板“templates/home.tt2:文件错误 - templates/inc/heater:找不到”。

这条消息足以让我和我的客户看到“header”调用拼写错误。

该请求有很多与客户无关的信息，但也有很多应该一直隐藏的内部开发信息!!

问候

Answer 1

您想要的是覆盖 Catalyst 的 dump_these方法。这将返回要在 Catalyst 的错误调试页面上显示的内容列表。

默认实现如下所示:

sub dump_these {
    my $c = shift;
    [ Request => $c->req ],
    [ Response => $c->res ],
    [ Stash => $c->stash ],
    [ Config => $c->config ];
}

但是您可以使其更具限制性，例如

sub dump_these {
    my $c = shift;
    return [ Apology => "We're sorry that you encountered a problem" ],
           [ Response => substr($c->res->body, 0, 512) ];
}

您可以在应用的主模块(您使用 Catalyst 的地方)中定义 dump_these。