如何在REST :: Client模塊中打印responseXpath（）的內容

Question

我正在使用REST::Client perl模塊來測試我的REST服務器。我想打印照常XML REST響應

目前我使用

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模塊還返回主體內容的XPath上下文通過$client->responseXpath()，但我無法找到一種方式使用toString()功能從XML::LibXML，它允許打印它，因爲我想要：

<?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

$客戶 - > responseContent（）原樣輸出的響應，如果你想美化它使用XML ::的libxml

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