Dispatch Table mit Objekten: Objektmethoden statt funktionen - #55762 (Allgemeines zu Perl)

Strat

2005-06-28 18:10

User since
2003-08-04
5246 Artikel
ModeratorIn

da ja eine methode eine subroutine ist, als deren erster Parameter entweder ein String(Klasse) oder eine Referenz (ein Objekt) ist, koennte man vielleicht auch mal ueber folgendes nachdenken:

Code: (dl )

my %dispatch = (
  1 => \&XYDFASDF::doOne,
  2 => \&XYDFASDF::doTwo,
  3 => \&XYDFASDF::doThree,
);
my $action = 2;
my $object = XYDFASDF->new();
if (exists $dispatch{$action}) {
  $dispatch{$action}->($object);
}

aber sowas widerspricht eigentlich OOP, und erschwert auch einiges wie z.B. vererbung\n\n

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/