我有一个XML-RPC响应，但我很难使用Mojo::XMLRPC将其作为JSON返回。感谢你的指导。

use Mojolicious::Lite;
use Mojo::XMLRPC qw[decode_xmlrpc];
#use XMLRPC::Fast;

get '/' => sub {
    my $c = shift;

    my $xml = <<~'XML';
    <?xml version="1.0" encoding="utf-8"?>
    <methodResponse>
      <params>
        <param>
          <value>
            <struct>
              <member>
                <name>myarray</name>
                <value>
                  <array>
                    <data>
                      <value>
                        <struct>
                          <member>
                            <name>bob</name>
                            <value>
                              <boolean>0</boolean>
                            </value>
                          </member>
                          <member>
                            <name>alice</name>
                            <value>
                              <i4>1</i4>
                            </value>
                          </member>
                        </struct>
                      </value>
                    </data>
                  </array>
                </value>
              </member>
            </struct>
          </value>
        </param>
      </params>
    </methodResponse>
    XML
    
    $c->render(json => decode_xmlrpc($xml));
};

app->start;