Moose Delegation (solved) (Fragen zu Perl-Modulen)

[thread]19032[/thread]

Moose Delegation [solved]

Tags: perl5 Similar Threads

Readers: 15

Articles: hide open all | hide show old branches

+8 replies
rosti

2014-04-16 18:55
User since
2011-03-19
3480 articles
BenutzerIn
Meine ersten Schritte:
Code (perl): (dl )

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

package Foo; use Moose; has 'cgi' => ( isa => 'CGI', handles => ['header'], ); package main; my $f = Foo->new(); print $f->header;
Das gibt:

Quote
Cannot delegate header to header because the value of cgi is not defined at C:/Perl/lib/Moose/Meta/Method/Delegation.pm line 99.
Foo::header('Foo=HASH(0x96b7c4)') called at C:\Dokumente und Einstellungen\rolf\Desktop\pack.pl line 20

Kann jemand mit der FM was anfangen?
- +4 replies
- GwenDragon
  
  2014-04-16 19:20
  User since
  2005-01-17
  14749 articles
  Admin1
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14
  
  package Foo; use Moose; use CGI; has 'cgi' => ( isa => 'CGI', handles => ['header'], default => sub { CGI->new }, ); package main; my $f = Foo->new(); print $f->header;
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +3 replies
  - rosti
    
    2014-04-16 19:56
    User since
    2011-03-19
    3480 articles
    BenutzerIn
    
    Herzlichen Dank!!!
    
    Und jetzt das eigentliche Problem ;)
    
    Delegieren (die Instanz einer fremden Klasse wird zu einem Attribut der eigenen Klasse) ist, soweit ich das bisher kenne und lebe, nur möglich, wenn die Instanz der fremden Klasse (CGI->new) zeitgleich zusammen mit der Instanz meiner eigenen Klasse erstellt wird.
    
    Nun: Die Instanz der fremden Klasse wird später erstellt. Fernab jeglicher Delegation würde sowas funktionieren:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9
    
    use CGI; # zur Laufzeit also: print $foo->header(CGI->new); sub header{ my $self = shift; my $cgiobject = shift; return $cgiobject->header(); }
    
    Was ich jedoch als Stilbruch empfinde, weil eine Instanz einer fremden Klasse einfach so in eine Methode meiner Klasse übergeben wird, wo dann mit der Instanz der fremden Klasse deren Methode aufgerufen wird.
    
    In einer Factory würde ich das so machen:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8
    
    use CGI; print $foo->header; sub header{ my $self = shift; my $cgiobject = CGI->new; return $cgiobject->header(); }
    
    Also das CGI-Objekt nicht übergeben, sondern in der eigenen Methode erzeugen. Hier wäre eine Stilfrage zu bestreiten ;)
    
    Oder die Frage zu klären: Ist eine späte Delegation möglich, evntl. mit Moose?
    - +2 replies
    - Raubtier
      
      2014-04-16 20:09
      
      User since
      2012-05-04
      1076 articles
      BenutzerIn
      
      Suchst du folgendes?
      lazy => 1
      - rosti
        
        2014-04-16 20:14
        
        User since
        2011-03-19
        3480 articles
        BenutzerIn
        
        2014-04-16T18:09:34 Raubtier
        Suchst du folgendes?
        lazy => 1
        
        Und wie ich das suche, danke Dir!!
        Irgendwie hatte ich mich schon an lazy_load festgebissen... aber auch mit den richtigen Suchbegriffen kann das Suchergebnis falsch sein ;)
- +3 replies
- rosti
  
  2023-06-29 08:43
  User since
  2011-03-19
  3480 articles
  BenutzerIn
  11 Jahre später ....
  Moose und ich sind keine Freunde geworden. Dafür ist die Factory mein liebstes Kind:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  use strict; use warnings; use base q(Factory); my $m = main->new; my $r = $m->selectall_arrayref(qq( select character_name, hex(codepoint) from unicodedata where codepoint between ? and ? ), 0x20, 0x7E); $m->dd($r); # Dump
  
  Einfach nur noch Methoden aufrufen mit der eigenen Instanz. Und: Die Methoden werden nur bei Bedarf kompiliert, also wenn sie aufgerufen werden. Obenstehendes Beispiel zeigt auch daß Methoden anderer Klassen (hier DBI) implizit delegiert werden.
  
  Schönes Wochenende!
  - +2 replies
  - GwenDragon
    
    2023-07-14 16:41
    
    User since
    2005-01-17
    14749 articles
    Admin1
    
    use base q(Factory); soll wohl heißen use base q(Factory ':machichallesslbst'); Nur ein Scherz. ;-)
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - rosti
      
      2023-07-15 16:43
      
      User since
      2011-03-19
      3480 articles
      BenutzerIn
      
      2023-07-14T14:41:29 GwenDragon
      use base q(Factory); soll wohl heißen use base q(Factory ':machichallesslbst'); Nur ein Scherz. ;-)
      
      Quote
      Ichmachalles
      klingt wie Jassid ;)

View all threads created 2014-04-16 18:55.