perl - 如何将特定消息放入 perl Dancer 服务器的 "response body"

Question

我的带有 Perl Dancer 的 RESTfull 服务器运行完美，只有一个异常(exception):send_error("Simple Error string",400) 例如删除了错误消息。

将发送错误代码，但没有实际消息“简单错误字符串”。

我试过 return send_entity({ error => "Missing parameter "}, 400) 也无济于事。

代码如下:

#!/usr/bin/perl
##########################################################################################################################################
# V1.0 REST-Server
##########################################################################################################################################


use Dancer;
use Dancer::Plugin::Auth::Basic;
use Dancer::Plugin::Database;
use Dancer::Plugin::REST;

set serializer => 'XML';

post '/hello/:name' => sub 
{
  # Low level test route
  auth_basic realm => 'Authorized personnel only', users => { 'alice' => 'AlicesPassword', 'bob' => 'BobsPassword' };
  send_error("Simple Error string",400);
};
dance;

测试使用 curl 进行:

#curl -X POST -k -u alice:AlicesPassword http://localhost:5000/hello/abc
An internal error occured

并在 Firefox 下使用 RESTer(通过 https 代理)。

RESter 报告相同。

多次谷歌搜索都没有提示如何生成正确的错误代码和提供的消息。

我希望任何人都可以给我提示。

Answer 1

要简单地更改 Http 状态，您可以使用 status keyword并将您的内容作为响应正文返回。

get '/' => sub {
  status 418;
  return 'I cannot make coffee.';
};