| Subject: | SOAP::Data::Builder, subvalues being lost |
Data isn't being fully serialised - bits missing:
getting :
<eb:Manifest eb:version="2.0" eb:id="Manifest"/>
from :
## Manifest
$soap_data_dom->add_elem(name => 'eb:Manifest', attributes => {"eb:id"=>"Manifest", "eb:version"=>"2.0" });
$soap_data_dom->add_elem(name=>'eb:Reference',
attributes=>{
'eb:id'=>'pay01','xlink:href'=>'cid:payload-d',
'xlink:role'=>'http://regrep.org/gci/purchaseOrder'
},
parent=>$soap_data_dom->get_elem('eb:Manifest'));
$soap_data_dom->add_elem(name=>'eb:Schema',
parent=>$soap_data_dom->get_elem('eb:Manifest/eb:Reference'),
attributes=>{'eb:version'=>'2.0', 'eb:location'=>'http://regrep.org/gci/purchaseOrder/po.xsd'});
$soap_data_dom->add_elem(name=>'eb:Description',
parent=>$soap_data_dom->get_elem('eb:Manifest/eb:Reference'),
attributes=>{'xml:lang'=>'en-US',},
value=>'Purchase Order for 100,000 widgets');
#####################################
Dumper for element:
$VAR1 = {
'attr' => {
'eb:version' => '2.0',
'eb:id' => 'Manifest'
},
'value' => [
{
'attr' => {
'xlink:href' => 'cid:payload-d',
'xlink:role' => 'http://regrep.org/gci/purchaseOrder',
'eb:id' => 'pay01'
},
'value' => [
{
'attr' => {
'eb:location' => 'http://regrep.org/gci/purchaseOrder/po.xsd',
'eb:version' => '2.0'
},
'value' => [],
'name' => 'eb:Schema',
'header' => 0
}
],
'name' => 'eb:Reference',
'header' => 0
}
],
'name' => 'eb:Manifest',
'header' => 0
};
#################