sub loadFabricantProperties { my $fabricant = shift || ''; my $libelle = shift || $SERVER{'fabricant'}; my $enchere = shift || ''; # just because the bidder loves ternary operators.... my $encherereur = $enchere ? $articleClass->getLastEnchereurDetail() : ''; my $string = < $libelle $encherereur EOF return $string; }