所需的perl REST-API输出

Question

我正在使用Perl Apache2 2：：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接受用户选择的任何hashkey：

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