perl – Catalyst中的详细调试屏幕？

发布时间：2020-12-15 23:37:31 所属栏目：大数据来源：网络整理

导读：在我的舞台服务器中,我想激活调试,以便客户端可以在应用程序进入生产服务器之前找到自己的错误. 但我只想要消息的第一部分,而不是请求或会话数据. 例如：无法渲染模板“templates / home.tt2：file error – templates / inc / heater：not found”. 该消息

在我的舞台服务器中,我想激活调试,以便客户端可以在应用程序进入生产服务器之前找到自己的错误.

但我只想要消息的第一部分,而不是请求或会话数据.

例如：无法渲染模板“templates / home.tt2：file error – templates / inc / heater：not found”.

该消息足以让我和我的客户看到“标题”调用拼写错误.

请求为客户提供了大量无关信息,但也有大量内部开发信息,应该一直隐藏！

问候

解决方法

你想要的是覆盖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,512) ];
}

您可以在应用程序的主模块中定义dump_these – 您使用Catalyst的模块.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!