« Patrons de conception/Commande » : différence entre les versions

L'avantage de cette implémentation particulière du patron Commande est que l'interrupteur peut être utilisé avec n'importe quel périphérique, pas seulement une lampe. Dans l'exemple suivant l'interrupteur allume et éteint une lampe, mais le constructeur accepte toute classe dérivée de Command comme double paramètre. On peut, par exemple, configurer le switch pour démarrer et arrêter un moteur.

 

/* Invocateur */

public class Switch

}

}

 

=== [[Programmation Perl|Perl]] ===

 

# exemple de style "switch":

return $objectRef ? $objectRef->handleCommand($cmd, @_) : undef;

}

 

Comme [[Programmation Perl|Perl]] dispose d'un ''AUTOLOAD'', le principe pourrait être émulé. Si un ''package'' voulait effectuer un ensemble de commandes arbitrairement grand, il pourrait recenser toutes les méthodes ''undefined'' grâce à ''AUTOLOAD'', puis tenter de les répartir (ce qui suppose que ''%commandHandlers'' contient une table de pointeurs, dont les clés sont les noms des méthodes):

 

sub AUTOLOAD {

my $me = shift;

return $objectRef ? $objectRef->handleCommand($methodName, @_) : undef;

}

 

Cela convertit les appels aux différentes méthodes dans l'objet courant, en appels à une méthode ''handleCommand'' dans différents objets. Cet exemple utilise Perl pour adapter un patron de conception à base d'objets Commandes, dans une interface qui en est dépourvue.