Perl übriges Web-Service-Parameter

Question

Ich versuche, REST Web-Service zu nennen wie folgt:

my $client = REST::Client->new(); 

$client->setHost("http://myhost.com"); 

$client->POST('/xx/yy/Submit', 
       $params, 
       {'Content-type' => 'application/json'} 
      ); 

my $response = $client->responseContent(); 

ich nicht, wie Parameterliste zu erstellen, wird api Definition wie folgt:

{ 
    "Credential": { 
      "Username": "String", 
      "Password": "String" 
    }, 
    "DataCoding": "Default", 
    "Header": { 
      "From": "String", 
      "ValidityPeriod": 0 
    }, 
    "Message": "String", 
    "To": ["String"] 
} 

Ich habe versucht, folgende aber hat nicht funktioniert:

my %params = (Credential => { 
           Username => $username, 
           Password => $password 
          }, 
       DataCoding => 'Default', 
       Header  => { 
           From => $from, 
           ValidityPeriod => 0   
          },    
       Message => "Test", 
       To  => ['90535xxxx','90542xxxxx'] 
      ); 

$client->POST('/v1/xml/syncreply/Submit', 
       encode_json(\%params), 
       {'Content-type' => 'application/json', 
       'Accept' => 'application/json' 
       } 
      ); 

Es gibt folgende Fehlermeldung:

<ErrorCode>SerializationException</ErrorCode> 
Error: System.Runtime.Serialization.SerializationException: There was an error deserializing the object of type Barabut.Gw.Submit. The data at the root level is invalid. Line 1, position 1. ---&amp;gt; System.Xml.XmlException: The data at the root level is invalid. Line 1, position 1. 

Answer 1

Ich schrieb Endadresse falsch, es funktionierte bei dem Format, das ich schrieb, Entschuldigung für diese Situation.