Вы имеете в виду как:
* {
padding: 0;
margin: 0;
}
h1, h2, h3, h4, h5, h6, p, blockquote, form, label, ul, ol, dl, fieldset, address {
margin-bottom: 1em;
}
?
На самом деле, извините, я неправильно читал Ваш вопрос, Вы после чего-то больше как общий сброс Eric Meyer http://meyerweb.com/eric/tools/css/reset/
Используйте SOAP :: WSDL для использования service wsdl, он также маршалирует для вас простые структуры данных Perl и (необязательно) в них. Настоятельно рекомендуемый модуль.
Что-то вроде следующего:
use SOAP::WSDL;
use Data::Dumper;
my $soap = SOAP::WSDL->new(
wsdl => 'http://server/pathtoservice?WSDL',
outputhash => 1
);
my $res = $soap->call('method', { foo => 1, bar =>2 });
die $res->faultstring if $res->fault;
print Dumper($res->result);
Вы можете попробовать использовать SOAP :: Lite, если у вас возникли проблемы с WSDL:
помните, вы всегда можете использовать:
use SOAP::Lite qw(trace);
, чтобы увидеть точный XML, который вы отправляете, чтобы увидеть насколько вы близки.
У меня нет времени проверять это, но вот мое лучшее предположение из моей головы:
my $soap = SOAP::Lite
-> uri($uri)
-> on_action(sub { sprintf '"Call by on_action: %s"',shift})
-> proxy('http://192.168.1.100:8688/MyService/services/MyService.MyServicePort/');
my $id = SOAP::Data->type('int')->name('entityId')->value(0);
my $type= SOAP::Data->type('EntityType')->name('entityType')->value(NODE);
$soap->enumerateEntities($id, $param);