Vererbung (gelöst) (Raku / Perl 6)

[thread]17894[/thread]

Vererbung

Tags: perl6 OOP Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+3 replies
Sven_123

2012-11-08 12:01
User since
2010-06-01
120 Artikel
BenutzerIn
1. Kann ich auf irgendeine Weise auf in der BUILD-Routine der Kindklasse auf Attribute der Elternklasse zugreifen? Die Attribute als named parameters mit zu übergeben (in folgendem Code method BUILD(:$!legs) {}) reicht allein zumindest nicht...:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12

use v6; class pet { has $.legs = 4; } class spider is pet { method BUILD {$!legs = 8} } my $robert = spider.new(); say $robert.legs;
_______________________________________________________________________________
Edit: Die 2 hab ich verstanden - ich muss das bless der Kindklasse das $l auch benannt weitergeben lassen, das der Elternklasse wird ja gar nicht mehr aufgerufen. Also ebenfalls: submethod new($l) {return self.bless(*, :$l)}.

2. Wie schaff ich es, eine Instanz einer Kindklasse zu erzeugen, indem ich dem new() eine Instanz der Elternklasse übergebe? Da die BUILD-Routine dann ja von beiden Klassen aufgerufen wird, muss ich doch bei der Elternklasse einfach eine Vorschrift einbauen, wie sie aus sich selbst erzeugt wird.
Wenn ich das so versuche, wie im nächsten Beispiel, wird $l in der animal-Klasse allerdings beim zweiten Aufruf nicht als animal(), sondern als Any() übergeben, woher das kommt, weiß ich nicht...(wie die Syntax für eine multisubmethod aussieht, hab ich nicht rausgefunden, bei einem multi submethod() {} kam ein anderer Fehler, deswegen der Umweg über die multis im BUILD).
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

use v6; class animal { has $.legs; submethod new($l) {return self.bless(*, :$l)} submethod BUILD(:$l) { legify($l); multi legify(Int $l) {$!legs = $l} multi legify($l) {$!legs = $l.legs} } } class pet is animal { has $.name is rw; submethod new($x) {return self.bless(*)} } my $spider = animal.new(8); say $spider.legs; $spider = pet.new($spider); say $spider.legs;
Last edited: 2012-11-08 13:55:53 +0100 (CET)
- +2 replies
- moritz
  
  2012-11-08 16:24
  User since
  2007-05-11
  923 Artikel
  HausmeisterIn
  2012-11-08T11:01:21 Sven_123
  1. Kann ich auf irgendeine Weise auf in der BUILD-Routine der Kindklasse auf Attribute der Elternklasse zugreifen?
  
  Nur, wenn es einen Accessor in der Elternklasse gibt. Private Attribute sind Privat, daran aendert sich auch nichts, wenn du von einer Klasse erbst.
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8
  
  use v6; class Pet { has $.legs is rw = 4; } class Spider is Pet { submethod BUILD { self.legs = 6 } }
  
  Oder du gibst von vornherein die richtigen Argumente mit:
  
  Code: (dl )
  
  1 2 3 4 5
  
  class Spider is Pet { method new(*%opts) { self.bless(*, |%opts, legs => 6); } }
  
  Perl 6 - Perls Zukunft
  - Sven_123
    
    2012-11-08 16:47
    
    User since
    2010-06-01
    120 Artikel
    BenutzerIn
    
    Ok, danke, ist verbaut. :)

View all threads created 2012-11-08 12:01.