Question

So the basic XML I’m trying to create is this (header stripped for brevity).

<SOAP-ENV:Body><data:requestMessage xmlns:data="urn:schemas-cybersource-com:transaction-data-1.62">
<data:merchantID>obfuscated</data:merchantID>
<data:merchantReferenceCode>42</data:merchantReferenceCode>
<data:billTo><data:firstName>caleb</data:firstName>
   <data:lastName>cushing</data:lastName><data:street1>somewhere</data:street1>
   <data:city>houston</data:city>
   <data:state>TX</data:state>
   <data:postalCode>77064</data:postalCode>
   <data:country>US</data:country>
   <data:email>[e-mail]</data:email>
</data:billTo>
 <data:item id="0">
   <data:unitPrice>2.01</data:unitPrice>
   <data:quantity>1</data:quantity>
</data:item>
<data:item id="1">
   <data:unitPrice>3</data:unitPrice>
   <data:quantity>1</data:quantity>
</data:item>
<data:purchaseTotals>
   <data:currency>USD</data:currency>
   <data:grandTotalAmount>5.01</data:grandTotalAmount>
</data:purchaseTotals><data:card>
    <data:accountNumber>4111111111111111</data:accountNumber>
    <data:expirationMonth>12</data:expirationMonth>
    <data:expirationYear>2015</data:expirationYear>
</data:card><data:ccAuthService run="true"/>
</data:requestMessage></SOAP-ENV:Body>

Here’s the Perl

#!/usr/bin/perl
use v5.14;
use strict;
use warnings;
use Env qw( CYBS_ID CYBS_KEY );
use XML::Compile::Util qw( pack_type type_of_node );
use XML::Compile::Cache;
use XML::Compile::SOAP::WSS;

use XML::Compile::WSDL11;
use XML::Compile::SOAP11;
use XML::Compile::Transport::SOAPHTTP;

my $wss = XML::Compile::SOAP::WSS->new( version => '1.1' );


my $wsdl = XML::Compile::WSDL11->new( 'CyberSourceTransaction_1.62.wsdl' );

$wsdl->importDefinitions( 'CyberSourceTransaction_1.62.xsd' );

my $call = $wsdl->compileClient('runTransaction');

my $security = $wss->wsseBasicAuth( $CYBS_ID, $CYBS_KEY );

my ( $answer, $trace ) = $call->(
    wsse_Security         => $security,
    merchantID            => $CYBS_ID,
    merchantReferenceCode => '42',
    billTo => {
        firstName  => 'caleb',
        lastName   => 'cushing',
        street1    => 'somewhere',
        city       => 'houston',
        state      => 'TX',
        postalCode => '77064',
        country    => 'US',
        email      => '[e-mail]',
    },
    item => {
        id => 0,
        quantity => 1,
        unitPrice => 2.01,
    },
    item => {
        id => 1,
        quantity => 1,
        unitPrice => 3.00,
    },
    purchaseTotals => {
        currency         => 'USD',
        grandTotalAmount => 5.01,
    },
    card => {
        accountNumber => '4111111111111111',
        expirationMonth => '12',
        expirationYear  => '2015',
    },
    ccAuthService => {
        run => 'true',
    },
);

$trace->printRequest;
say '---';
$trace->printResponse;

Here are the WSDL and XSD

Below is the XML that is being generated. Obviously I only get the second item. How can I create a request that has more than one item?

<SOAP-ENV:Body><data:requestMessage xmlns:data="urn:schemas-cybersource-com:transaction-data-1.62">
<data:merchantID>obfuscated</data:merchantID>
<data:merchantReferenceCode>42</data:merchantReferenceCode>
<data:billTo><data:firstName>caleb</data:firstName>
   <data:lastName>cushing</data:lastName><data:street1>somewhere</data:street1>
   <data:city>houston</data:city>
   <data:state>TX</data:state>
   <data:postalCode>77064</data:postalCode>
   <data:country>US</data:country>
   <data:email>[e-mail]</data:email>
</data:billTo>
 <data:item id="1">
   <data:unitPrice>3</data:unitPrice>
   <data:quantity>1</data:quantity>
</data:item>
<data:purchaseTotals>
   <data:currency>USD</data:currency>
   <data:grandTotalAmount>5.01</data:grandTotalAmount>
</data:purchaseTotals><data:card>
    <data:accountNumber>4111111111111111</data:accountNumber>
    <data:expirationMonth>12</data:expirationMonth>
    <data:expirationYear>2015</data:expirationYear>
</data:card><data:ccAuthService run="true"/>
</data:requestMessage></SOAP-ENV:Body>

Answer 1

You try to have multiple keys with the same name in the HASH, which, of course, is not possible. With $wsdl->explain($op, recurse => 1) you can easily figure-out how the data-structure should look like…

For simple repetative elements, you use and array:

  item => [ { id => 0, quantity => 1, unitPrice => 2.01, },
            { id => 1, quantity => 1, unitPrice => 3.00, }, ]

Nicer:

 $items[0] = { id => 0, quantity => 1, unitPrice => 2.01, };
 $items[1] = { id => 1, quantity => 1, unitPrice => 3.00, };
 $data = { ..., item => @items, ... };

Even easier when the items are objects… see typemap.