xml - 所需的 perl REST-API 输出

Question

我正在使用 Perl Apache2::REST模块，返回数据的标准方法是发出$resp->data()并分配一个值。我有这样的东西

my $text = {
    'tag1' => 4,
    'tag2' => 5,
    'tag3' => 6,
};

$resp->data()->{'text'} = {map { $_ => [$text ->{$_}] } keys %$text};

这给了我这样的回应

<response message="" status="200">
  <data name="text">
    <tag1>4</tag1>
    <tag2>5</tag2>
    <tag3>6</tag3>
  </data>
</response>

是否可以将结果响应更改为以下内容

<response message="" status="200">
  <content name="text">
    <tag1>4</tag1>
    <tag2>5</tag2>
    <tag3>6</tag3>
  </content>
</response>

我需要设置/发布什么？ 我试图改变响应输出 - 无济于事。

Answer 1

我通过检查模块代码找到了解决方案（或者确切地说是我的同事之一）。

REST-API 接受用户选择的任何哈希键：

delete $resp->{data}; # Deletion of the defaulr data element
$resp->{content}->{'text'} = {map { $_ => [$text ->{$_}] } keys %$text};