Как напечатать содержимое responseXpath () в модуле REST :: Client

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также возвращает контекст 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

$ client-> responseContent () выводит ответ как есть, если вы хотите его украсить, используйте XML :: LibXML

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