9 lines
382 B
Plaintext
9 lines
382 B
Plaintext
use EntrepriseInterfaces::EntrepriseService::EntreprisePort;
|
|
my $service = EntrepriseInterfaces::EntrepriseService::EntreprisePort->new();
|
|
$service->proxy('http://login:hash@webservice.sd.lan/entreprise/v0.2');
|
|
my $params = EntrepriseElements::IdentiteRequest->new({
|
|
siret => '552144503',
|
|
});
|
|
my $result = $service->getIdentite($params);
|
|
die $result if not $result;
|
|
print $result; |