2011-06-16 09:38:46 +00:00
|
|
|
use EntrepriseInterfaces::EntrepriseService::EntreprisePort;
|
|
|
|
|
my $service = EntrepriseInterfaces::EntrepriseService::EntreprisePort->new();
|
|
|
|
|
$service->proxy('http://login:hash@webservice.sd.lan/entreprise/v0.2');
|
2010-09-23 16:20:27 +00:00
|
|
|
my $params = EntrepriseElements::IdentiteRequest->new({
|
2011-06-16 09:38:46 +00:00
|
|
|
siret => '552144503',
|
2010-09-23 16:20:27 +00:00
|
|
|
});
|
|
|
|
|
my $result = $service->getIdentite($params);
|
|
|
|
|
die $result if not $result;
|
|
|
|
|
print $result;
|
