如何跳过 Dancer2 中的序列化程序？

Question

我的应用程序配置为发送 JSON 响应。我需要向它添加一个 RSS（或其他任何东西）端点。没有无操作序列化器，尽管写一个很简单：

{ # do not use this lol
    package Dancer2::Serializer::ThisIsNotAnOkayThingToDo_Raw;
    use Moo;
    with 'Dancer2::Core::Role::Serializer';
    sub serialize { $_[1] }
    sub deserialize { $_[1] }
    1;
}

get '/mything/rss' => sub {
  my $rss = new XML::RSS (version => '2.0');
  $rss->channel(title => "Wharrgarbl");
  $rss->add_item(title => "Potato");
  send_as(ThisIsNotAnOkayThingToDo_Raw => $rss->as_string, {content_type => 'application/rss+xml; charset=UTF-8'});
}

但是，这失败了，声称 __PACKAGE__::send_as 未定义（但在服务器上运行 perldoc Dancer2::Manual 确实说 send_as 应该在那里）。

# __PACKAGE__ is me redacting the sensitive out of the error message
Undefined subroutine &__PACKAGE__::send_as called at...

文档还声称send_as 使用send_file，所以我试图去掉中间人：

get '/mything/rss' => sub {
  my $rss = new XML::RSS (version => '2.0');
  $rss->channel(title => "Wharrgarbl");
  $rss->add_item(title => "Potato");
  my $xml = $rss->as_string;
  send_file(\$xml, content_type => 'application/rss+xml; charset=UTF-8');
}

然而，这会通过序列化程序：

hash- or arrayref expected (not a simple scalar, use allow_nonref to allow this) at .../site/lib/JSON.pm line 154.

做什么？

Answer 1

get '/mything/rss' => sub {
  # Calculate the result
  my $rss = ...;
  # Mark the request as successful
  status 200;
  # Be polite and set the content type
  content_type 'application/rss+xml; charset=UTF-8';
  # Jam the result straight into the response object
  response->{content} = $rss;
  # Tell Dancer internals that the response has already been encoded 
  # (this is pretty much guaranteed to break in the future, regrettably)
  response->{is_encoded} = 1;
  # and return.
  return response;
}

---

Answer 2

使用send_as:

允许当前路由处理程序返回特定的内容类型到 客户端使用指定的序列化程序或 html。

你可以使用它来指定你自己的序列化器或者只使用默认的 html 序列化程序，但更改 rss 的内容类型

use Dancer2;
set serializer => 'JSON';

get '/mything/rss' => sub {
  # Get your rss string 
  # ...
  my $xml = '<rss>content</rss>';
  send_as html => $xml , { content_type => 'application/rss+xml; charset=UTF-8' };
}

dance;