Klasse erweitern (Allgemeines zu Perl)

[thread]13828[/thread]

Klasse erweitern

Tags: OOP Similar Threads

Readers: 21

Articles: hide open all | hide show old branches

+10 replies
roooot

2009-08-07 11:21
User since
2008-03-03
276 articles
BenutzerIn
Hallo, ich verwende für meine OO Programmierung Class::Std. Funktioniert zufriedenstellend und gut.

Nun möchte ich gerne in diese Klasse neuen Funktionen einbinden, die dann von der Klasse aufgerufen werden können als wären es die eigenen. Normalerweise wird dann mit require die neue Klasse eingebunden und per new ein Objekt erstellt. Diesmal möchte ich allerdings kein neues Objekt, sondern die Funktionen so verfügbar machen, als wären sie schon immer in der Hauptklasse.
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

{ package Foo; use Class::Std; use Class::Std::Utils; use Foo::More; sub new { my ($class) = @_; my $new_object = bless anon_scalar(), $class; return $new_object; } sub bar { my ($self) = @_ #... } } { package Foo::More; sub baz { my ($self) = @_ #... } } #/usr/bin/perl; use strict; use Bar; new Bar->baz;
Da Baz ja nicht in dem Foo Package selbst ist (sondern in Foo::More, muss die Funktion quasi in deren Namensraum geladen werden. Wie macht man das? Mit Exporter die Funktion defaultmässig exportieren, wenn Foo::More eingebunden wird? Funktioniert Exporter auch bei Klassen?

Danke für eure Hilfe, ich hoffe es ist anschaulich geworden. Im Prinzip suche ich das Perl pendant zu Mootools::Class->implement
Viele Grüße :)
- LanX-
  
  2009-08-07 11:41
  User since
  2008-07-15
  1000 articles
  BenutzerIn
  meinste sowas???
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8
  
  { package Class::Std; sub baz { my ($self) = @_ #... }
  
  ohne Gewähr!
  me and my writeups
- +8 replies
- sid burn
  
  2009-08-07 11:44
  
  User since
  2006-03-29
  1520 articles
  BenutzerIn
  
  Hast du erst vor kurzem mit Class::Std angefangen? Wenn ja dann würde ich dir lieber Raten Moose zu nutzen. Dort wären dann Rollen das gewünschte.
  
  Quote
  Da Baz ja nicht in dem Foo Package selbst ist (sondern in Foo::More, muss die Funktion quasi in deren Namensraum geladen werden. Wie macht man das? Mit Exporter die Funktion defaultmässig exportieren, wenn Foo::More eingebunden wird? Funktioniert Exporter auch bei Klassen?
  
  Perl selber kennt eigentlich keine Klassen sondern es sind nur Packages wo funktionen drin sind. Daher wenn du Exporter nutzt und diese in das Package lädst hast du deinen gewünschten effekt und es ist nachher so das die funktion normal als "Methode" aufrufbar ist.
  
  Also ja das gewünschte verhalten würde über den Exporter Mechanismus funktionieren.
  Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
  - +5 replies
  - guest wer
    
    2009-08-07 11:58
    Oder man nutzt
    
    Code (perl): (dl )
    
    1 2
    
    use MyPackage; use base "MyPackage";
    
    Damit werden alle Funktionen aus "MyPackage" in das aktuelle importiert.
    "Exporter" ist etwas aufwändig, wenn man nicht spezifizieren will was man importieren möchte.
    - +4 replies
    - sid burn
      
      2009-08-07 12:33
      
      User since
      2006-03-29
      1520 articles
      BenutzerIn
      
      Guest wer
      Oder man nutzt
      
      Code (perl): (dl )
      
      1 2
      
      use MyPackage; use base "MyPackage";
      
      Damit werden alle Funktionen aus "MyPackage" in das aktuelle importiert.
      "Exporter" ist etwas aufwändig, wenn man nicht spezifizieren will was man importieren möchte.
      
      Damit werden die nicht importiert, sondern damit baut man eine vererbung auf, was letztendlich nicht das gleiche ist.
      Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
      - +3 replies
      - scriptor
        
        2009-08-07 12:44
        
        User since
        2008-05-07
        69 articles
        BenutzerIn
        
        Darf ich da mal die Frage dranhängen, ob die Verwendung von:
        
        Code: (dl )
        
        use base qw(Sitescriptor::Class::Meta::Module);
        
        und:
        
        Code: (dl )
        
        our @ISA = qw(Sitescriptor::Class::Meta::Module);
        
        zur Vererbung äquivalent sind?
        
        site-script-or aus dem Urlaub zurück ;-)
        
        +2 replies
        
        sid burn
        
        2009-08-07 12:51
        
        User since
        2006-03-29
        1520 articles
        BenutzerIn
        
        Fast. "use base" lädt auch gleichzeitig das Modul und es pusht es in @ISA herein. Das pushen ist wichtig wenn du von mehr als einer Klasse vererbst, weil dann das letzte "use base" im Code die erste Klasse ist von der du ableitest.
        
        Code (perl): (dl )
        
        1 2
        
        package Foo; use base 'Baz';
        
        wäre identisch zu
        
        Code (perl): (dl )
        
        1 2 3 4 5
        
        package Foo; BEGIN { require Baz; push @ISA, qw(Bar); };
        
        Ansonsten wird das Modul mit "require" und nicht mit "use" geladen. Dadurch wird die "import" Methode nicht aufgerufen und evtl. nichts importiert.
        
        Aber auf die reine vererbung hat es letztendlich keine auswirkung.
        
        EDIT:
        "base" macht so noch paar Sachen mehr. Es kann z.B. "fields" behandeln. Und mit "Tie::StdHash" gibt es noch einen speziellen fall. Nur ist "fields" deprecated und sollte man eh nicht mehr nutzen. Hmm und den "Tie" Mechanismus würde ich generell nicht empfehlen ihn zu nutzen.
        Last edited: 2009-08-07 12:58:25 +0200 (CEST)
        Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
        
        scriptor
        
        2009-08-07 13:14
        
        User since
        2008-05-07
        69 articles
        BenutzerIn
        
        Es geht mir nur um Vererbung (und vielleicht noch Mehrfachvererbung).
        
        Rein „sprachlich“ würde ich use base vorziehen.
        
        Danke!
  - +2 replies
  - roooot
    
    2009-08-07 12:19
    
    User since
    2008-03-03
    276 articles
    BenutzerIn
    
    Ich verwende Class::Std in diesem Projekt schon von Anfang an (gut 6 Monate ist es jetzt alt), daher wäre ein Umstellen auf Moose sehr sehr aufwändig.
    Aber ich werde das Portieren auf Moose mit einem neuen Milestone in Angriff nehmen, denn ich habe jetzt auch schon oft gehört, dass Moose Class::Std überlegen ist.
    
    Zurück zum Thema: Danke, dann verwende ich Exporter nun.
    
    Schönen Tag noch.
    Last edited: 2009-08-07 12:32:26 +0200 (CEST)
    Viele Grüße :)
    - sid burn
      
      2009-08-07 12:43
      
      User since
      2006-03-29
      1520 articles
      BenutzerIn
      
      Ein Beispiel, in Moose würde dein gewolltes so aussehen:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6
      
      package Foo::More; use Moose::Role; sub baz { ... }
      
      Code (perl): (dl )
      
      1 2 3
      
      package Foo; use Moose; with 'Foo::More';
      
      Moose fügt aber noch mehr support hinzu. Mit "requires" kannst du sagen welche Methoden deine Klasse in der du etwas importierst implementiert haben musst. Mit exclude kannst du Rollen ausschliesen.
      
      Objekte/Klassen haben möglichkeiten abzufragen welche Rollen sie konsumieren und du kannst beim importieren der Rolle die Funktionen z.B. ummappen.
      
      Daher du kannst die Rolle "Foo::More" importieren und dann die Methode "baz" als "bar" in der neuen Klasse verfügbar machen.
      
      Letzteres bietet dir aber auch z.B. "Sub::Exporter" an.
      Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de

View all threads created 2009-08-07 11:21.