Perl SOAP::Lite Ajout de CDATA

Question

J'appelle un service web en utilisant SOAP::Lite comme suit :

my $som = $soap->call('ns:xxx' =>
           (
            SOAP::Data->name('ns:data' =>
            \SOAP::Data->value(
               SOAP::Data->name('username')->type('')->value($username),
             )
          )
      )
  );

Cela n'a pas fonctionné. J'ai donc appelé le service web en utilisant l'outil SOAPUI pour voir la structure xml.

J'ai ensuite exécuté mon code en mode débogage (en utilisant SOAP::Lite 'debug'), j'ai vu le xml créé et je l'ai comparé avec le xml de l'outil SOAPUI. La seule différence est que le xml de SOAPUI contient des balises CDATA comme suit :

<![CDATA[
   xml
]]>

J'ai fait des recherches et j'ai vu que le CDATA est utilisé pour éviter les erreurs causées par les caractères spéciaux.

Comment puis-je ajouter cette balise en utilisant le code Perl ?