Moose-Attribut weiterleiten (Allgemeines zu Perl)

[thread]19056[/thread]

Moose-Attribut weiterleiten

Tags: perl5 OOP Moose Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+9 replies
Gast Martin

2014-04-28 00:04
Hello Perl-Community.de,

nach ein paar Jahren Abstinenz bin ich wieder zu Perl zurückgekehrt, habe Moose gelernt und finde es super.

Ich habe jedoch gerade folgendes Problem, zu dem ich leider nichts gefunden habe.

Ich habe eine Klasse:
Code (perl): (dl )

1 2 3 4 5 6 7 8

package ABC; use Moose; has 'container' => ( is => 'rw', isa => 'ArrayRef', default => sub { return [ 0..10 ] }, );
Und würde gerne ein paar Accessoren erstellen, die auf die Werte in dem Array weiterleiten.

Die Daten des ArrayRefs in Container kommen von außen und sie können sich somit jederzeit ändern. Also funktioniert der Ansatz über einen Builder leider nicht.

In vor-Moose-Zeiten habe ich sowas wie das folgende verwendet (gekürzt):
Code (perl): (dl )

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

sub wertX { my $self = shift; if( @_ ) { if( $_[0] =~ /^[wb]$/ ) { $self->container->[11] = $_[0]; } else { confess "Invalid value $_[0] for attribute wertX"; } } return $self->container->[11] //= 'w'; # defaultwert }
Ich würde dies jedoch lieber mit Moose machen, habe jedoch noch keinen Weg dafür gefunden, ausser wirklich häßliche Sachen mit around 'wertX'.

Könnt Ihr mir dabei bitte helfen?

Viele Grüße,

Martin
Last edited: 2014-04-28 00:27:13 +0200 (CEST)
- +8 replies
- Muffi
  
  2014-04-28 06:49
  
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  
  Hash statt Array geht nicht?
  1 + 1 = 10
  - +7 replies
  - Gast Martin
    
    2014-04-28 15:15
    
    Hallo,
    
    vielen Dank für Deine Antwort.
    
    Ich habe für das Beispiel ein ArrayRef genommen. In Wirklichkeit steckt dahinter eine komplexere Datenstruktur (LoHoHoL bzw. LoHoHoS), die jedoch kein Objekt ist.
    
    Das ArrayRef container wird recht häufig aktualisiert, und ich würde gerne mit getter/setter auf Moose-Basis auf manche Werte zugreifen.
    
    Wie würde es denn mit container = HashRef funktionieren?
    Last edited: 2014-04-28 15:21:48 +0200 (CEST)
    - +6 replies
    - Muffi
      
      2014-04-28 19:56
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Achso, das ist komplexer... hmm, hast du dir schon mal Moose::Manual::Delegation#NATIVE-DELEGATION angeschaut?
      1 + 1 = 10
      - gelöscht 2014-04-29 13:33
      - +4 replies
      - Gast Martin
        
        2014-04-29 13:36
        
        Danke, das habe ich zwar mal überflogen, aber unterschätzt. Ich verstehe traits noch nicht so recht.
        
        Das bringt mich einen Schritt weiter, und ich brauche nun zumindest lesenderweise nicht mehr direkt auf das ArrayRef container zugreifen.
        
        Ich bräuchte jedoch noch sowas wie (quick'n'dirty):
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
        
        package ABC; use Moose; has 'container' => ( is => 'rw', isa => 'ArrayRef', default => sub { return [ 0..10 ] }, traits => [ 'Array' ], handles => { get_piece_by_id => 'get', # funktioniert # die folgenden funktionieren nicht get_color => sub { return shift->get_piece_by_id(0)->{color}->[0]; }, set_color => sub { shift->container->[0]->{color}->[0]) = shift; # leider kein set }, }, );
        
        Dank deiner Hilfe vermute ich, dass ich das mit Traits lösen kann. Ich versuche es.
        
        Vielen Dank
        Last edited: 2014-04-29 13:58:47 +0200 (CEST)
        
        +3 replies
        
        Muffi
        
        2014-04-29 14:39
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Ich hab noch nie produktiv mit Moose gearbeitet, aber so wie das ausschaut kommt erst der Code und dann der Name
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8
        
        handles => { add_item => 'push', .... }, sub add_item { my ($self, @items) = @_; ...
        
        von daher würd ichs (wenns wirklich kurz sein soll) eher mit sub { ... } statt add_item probieren
        1 + 1 = 10
        
        Gast Martin
        
        2014-04-30 17:36
        
        Ich denke, Definition vor Implementierung ist Best-Practice, aber nicht zwingend erforderlich (auch wenn es Sinn macht).
        
        Ich habe es vorerst folgendermaßen gelöst bekommen, zwar umständlich, aber es scheint auf den ersten Blick zu funktionieren (ich schreibe die Builder aus Übersichtsgründen hier direkt nach der Definition)
        
        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 37 38
        
        has 'container' => ( traits => ['Array'], is => 'rw', isa => 'ArrayRef', lazy_build => 1, handles => { get_by_id => 'get', }, ); sub _build_container { return [ 'w', 1 .. 145 ]; } has 'color' => ( is => 'rw', isa => 'Str', lazy_build => 1, trigger => sub { $_[0]->container->[0] = $_[1] }, ); sub _build_color { return shift->get_by_id(0) || 'w'; } has 'counter' => ( traits => ['Counter'], is => 'rw', isa => 'Num', lazy_build => 1, handles => { inc_counter => 'inc', dec_counter => 'dec', reset_counter => 'reset', }, trigger => sub { $_[0]->container->[145] = $_[1] }, ); sub _build_counter { return shift->get_by_id( 145 ) || 1; }
        
        Aber vermutlich ist die Erstellung eines Traits der bessere Weg.
        Last edited: 2014-04-30 17:50:58 +0200 (CEST)
        
        Gast Martin
        
        2014-04-30 17:47
        
        2014-04-29T12:39:39 Muffi
        ...
        von daher würd ichs (wenns wirklich kurz sein soll) eher mit sub { ... } statt add_item probieren
        
        Wenn ich dich nicht missverstehe, würdest du da eine nette Fehlermeldung bekommen, weil handles add_item bereits den alias "add_item" bereit stellt, den du durch sub add_item redefinieren würdest.
        Last edited: 2014-04-30 17:51:01 +0200 (CEST)

View all threads created 2014-04-28 00:04.