Registratur der Fabrik

Twister.pm

sub register { my ($package, $name, $constructor) = @_; $constructors{$name} = $constructor; } sub create { my ($package, $name, %options) = @_; return undef unless defined $modules{$name}; $modules{$name}(%options); } sub modules { return keys %modules; }

Jede Implementierung von Twister meldet sich mit register() unter Angabe ihres Namens und ihres Konstruktors bei der Abstraktion an.

Bei create() wird für den gegebenen Namen der zugehörige Konstruktor aufgerufen.

	Jede Implementierung von `Twister` meldet sich mit `register()` unter Angabe ihres Namens und ihres Konstruktors bei der Abstraktion an.
	Bei `create()` wird für den gegebenen Namen der zugehörige Konstruktor aufgerufen.