#!/usr/bin/perl -w
use strict;

# -- Nested attributes

use SOAP::Lite;

my @array = qw(11 22);
 
my $client = SOAP::Lite
	->readable(1)
	->uri('http://tertius.example.com/Demo')
	->proxy('http://localhost:7890');
 
my $temp_elements;
my @params = ();

$temp_elements = SOAP::Data
        ->name("TargetStaging" => 'foo')
        ->type("");
	push(@params, $temp_elements);

$temp_elements = SOAP::Data
	->name("Item" =>
		\SOAP::Data->value(
			SOAP::Data->name("type" => 'ADSL_CF_HARDWARE'),
			SOAP::Data->name("external_id" => 4711),

			SOAP::Data->name("category" =>
				\SOAP::Data->name("name" => 'ADSL_CF'),
			),

			SOAP::Data->name("attribute" =>
				\SOAP::Data->value(
					SOAP::Data->name("key" => "ORDERBY"),
					SOAP::Data->name("value" => 1)
				)
			),

			SOAP::Data->name("attribute" =>
				\SOAP::Data->value(
					SOAP::Data->name("key" => "LINE_TYPE"),
					SOAP::Data->name("value" => 'analog')
				)
			),
		)
		->type("ItemObject")
	)
	->type("StructureOf_Item");
	push(@params, $temp_elements);
 
my $response = $client->AddItemRequest(@params);