如何打印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->responseXpath()返回主体内容的xpath上下文，但我无法找到一种方法将其与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-> responecontent ()按原样输出响应，如果您想要美化它，请使用XML::LibXML

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