|
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.
|
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003 |