Methoden erweitern (gelöst) (Allgemeines zu Perl)

[thread]17691[/thread]

Methoden erweitern [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 22

Articles: hide open all | hide show old branches

+4 replies
rosti

2012-08-23 09:57
User since
2011-03-19
3492 Artikel
BenutzerIn
Hi,

gibt es eine Möglichkeit, Methoden zu erweitern, ohne diese Erweiterungen direkt in die Methode einzutragen?

Bisher:
Code (perl): (dl )

$ob->method(123); # es werden nur die Schlüssel in der DB generiert
Soll:
Code (perl): (dl )

$ob->method(123, %values); # wie gehabt, nunmehr mit Werten
--Rosti
- Muffi
  
  2012-08-23 10:15
  
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  
  Hä?
  
  Sowas?
  http://search.cpan.org/~adamk/Aspect-1.02/lib/Aspe...
  1 + 1 = 10
- Relais
  
  2012-08-23 10:16
  
  User since
  2003-08-06
  2246 Artikel
  ModeratorIn
  
  Ja - zur ersten Hälfte der Frage.
  
  Den Rest habe ich dann nicht verstanden.
  Ja, es ist auf vielerlei Weise gut machbar, eine Methode mit mehr als einer Funktionsweise zu schreiben. Das ist gutes Perl5...
  
  ...aber evtl. fehleranfälliger als klar getrennte Methoden zu verwenden.
  
  Ganz ohne Code keine Funktionalität - daher verstehe ich nicht, was Du mit
  Quote
  ohne diese Erweiterungen direkt in die Methode einzutragen?
  
  sagen willst.
  
  Du kannst für beide Fälle je eine Methode schreiben und einen Wrapper um beide um nach Art der Daten die eine oder die andere zur Verarbeitung zu wählen. Hast Du das gemeint?
  Last edited: 2012-08-23 10:17:11 +0200 (CEST)
  Erst denken, dann posten --
  27. Deutscher Perl- u. Raku -Workshop (Termin wird noch gesucht) 2025 in München.
  
  Winter is Coming
- topeg
  
  2012-08-23 13:29
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Sauber ist es zu Erben und die Methode in der Kindklasse zu überschreiben.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
  
  package Class::myIrgendwas; use strict; use warnings; use parent 'Class::Irgendwas'; sub method { my $self=shift; return $self->Super::method(@_) if(@_==1); my $val1=shift; my $val2=shift; # ... return #... }
  
  Das hilft auch bei der Dokumentation der Veränderungen.
  
  Aber...
  
  Bei Perl sind die Namensräume kaum geschützt, weshalb man Funktionen und Methoden leicht überschreiben kann.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
  
  use Class::Irgendwas; BEGIN { # alte Methode sichern my $ref=\&Class::Irgedndwas::method; # überschreiben mit neuer Methode *Class::Irgedndwas::method=sub { return $ref->(@_) if(@_==2); my $self=shift; my $val1=shift; my $val2=shift; # ... return #... } }
  
  Das kann auch zu Problemen führen, wenn andere Module das auch machen, oder sich darauf verlassen dass immer nur ein Wert verarbeitet wird $obj->method(@zeug). Die Gefahr das etwas schief läuft ist da.
  
  Ich benutze das nur um Fehler zu korrigieren, bis das Modul aktualisiert wird.

View all threads created 2012-08-23 09:57.