dpd soap::lite example

dpd.pl

#!/usr/bin/perl
use Mojo::Base -strict;

use SOAP::Lite +trace => 'all';
use DDP;

my $soap = new SOAP::Lite->new;
$soap->autotype(0);
$soap->readable(1);
$soap->service('http://ws.dpd.ru/services/geography2?wsdl');
$soap->ns('http://dpd.ru/ws/geography/2015-05-20');
$soap->proxy('http://ws.dpd.ru/services/geography2');

my $res = $soap->call('getCitiesCashPay',
	SOAP::Data->name('request')->value(
		\SOAP::Data->name('auth')->value(
			\SOAP::Data->value(
				SOAP::Data->name('clientNumber')->value('number'),
				SOAP::Data->name('clientKey')->value('key')
			)
		)
	)
);

p $res;