如何在REST::Client模块中打印responseXpath()的内容

Question

我正在使用 REST::Client perl 模块来测试我的 REST 服务器。我想像往常一样打印 REST 响应 xml

目前我正在使用

print $client->responseContent() 

它在一行中打印 xml：

<?xml version="1.0" encoding="UTF-8" standalone="yes"?><ns2:messageReference xmlns:ns2="urn:com:test:xml:rest:mds:1"><messageId>775775</messageId></ns2:messageReference>

REST::Client 模块还通过 $client-> 返回正文内容的 xpath 上下文;responseXpath()，但我找不到将其与 XML::LibXML 中的 toString() 函数一起使用的方法，该函数允许按照我的方式打印它想：

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
  <ns2:messageReference xmlns:ns2="urn:com:test:xml:rest:mds:1">
    <messageId>775775</messageId>
  </ns2:messageReference>

Answer 1

$client->responseContent() 按原样输出响应，如果您想美化它，请使用 XML::LibXML

my $dom = XML::LibXML->load_xml(string => $client->responseContent());
print $dom->toString();