Moo Attribute überschreiben (solved) (Allgemeines zu Perl)

[thread]19484[/thread]

Moo Attribute überschreiben [solved]

Tags: perl5 OOP Similar Threads

Readers: 18

Articles: hide open all | hide show old branches

+8 replies

Kuerbis

2015-02-01 14:58

User since
2011-03-20
955 articles
BenutzerIn
[default_avatar]

Hallo,

wie kann ich hier die Attribute mit den in hallo übergebenen Attributen ($ref) überschreiben?
In diesem Beispiel würde dann welt : 9 - d ausgegeben statt wie aktuell welt : 8 - c.

Code (perl): (dl )

#!/usr/bin/env perl
use strict;
use warnings;
use 5.10.0;

{
    package Foo;
    use Moo;
    has 'attr1' => (
        is => 'rw'
    );
    has 'attr2' => (
        is => 'rw'
    );

    sub hallo {
        my( $self, $str, $ref ) = @_;
        return sprintf '%s : %s - %s', $str, $self->attr1, $self->attr2;
 
    }
}


my $foo = Foo->new( { attr1 => 8, attr2 => 'c' } );
say $foo->hallo( 'welt', { attr1 => 9, attr2 => 'd' } );

+3 replies
lichtkind

2015-02-01 17:02

User since
2004-03-22
5703 articles
ModeratorIn + EditorIn

die moo attribute sind normale subs, aber du willst ja sicher nicht attribute überschreiben sondern nur werte übergeben oder?
du hast doch beide objektreferenzen, wo ist also das problem?
Last edited: 2015-02-01 20:17:41 +0100 (CET)
Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.
- +2 replies
- Kuerbis
  
  2015-02-01 18:22
  
  User since
  2011-03-20
  955 articles
  BenutzerIn
  
  Ich hatte gehofft, dass es eine Abkürzung gibt (falls viele Attribute).
  - renee
    
    2015-02-01 22:04
    User since
    2003-08-04
    14371 articles
    ModeratorIn
    
    Du könntest so etwas machen wie
    
    Code (perl): (dl )
    
    1 2 3 4
    
    for my $key ( keys %{ $ref || {} } ) { my $sub = $self->can( $key ); eval{ $self->$sub( $ref->{$key} ) } if $sub; }
    
    OTRS-Erweiterungen (http://feature-addons.de/)
    Frankfurt Perlmongers (http://frankfurt.pm/)
    --
    
    Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
    Perl-Entwicklung: http://perl-services.de/
+2 replies

renee

2015-02-01 17:44

User since
2003-08-04
14371 articles
ModeratorIn

Code (perl): (dl )

    sub hallo {
        my( $self, $str, $ref ) = @_;

        $self->attr1( $ref->{attr1} ) if exists $ref->{attr1};
        $self->attr2( $ref->{attr2} ) if exists $ref->{attr2};

        return sprintf '%s : %s - %s', $str, $self->attr1, $self->attr2;
 
    }
}

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

Kuerbis

2015-02-01 18:22

User since
2011-03-20
955 articles
BenutzerIn

Thx!

rosti

2015-02-02 08:03

User since
2011-03-19
3571 articles
BenutzerIn

In herkömmlichen Perl würde das so aussehen (ich mache mal alles in der main zur Veranschaulichung):

Code (perl): (dl )

use strict;
use warnings;
use 5.010;
use Data::Dumper;

# Modify Attribute
my $mod_att = sub{
    my $self = shift;
    my $ref = shift;
    $self->{att1} = $ref->{att1};
    $self->{att2} = $ref->{att2};
};

# vereinfachter Konstruktor
my $m = bless{
    mod_att => $mod_att,
    att1 => 8,
    att2 => 'c'
}, __PACKAGE__;

sub hallo{
    my $self = shift;
    my $str  = shift;
    my $ref  = shift;

    $self->{mod_att}->($self, $ref) if $ref;    

    return sprintf "%s : %s - %s", $str, $self->{att1}, $self->{att2};
}

say $m->hallo('Welt'), "\n", $m->hallo('Welt', {att1 => 9, att2 => 'd'}), "\n", Dumper $m;

Das gibt aus:

Code: (dl )

Welt : 8 - c
Welt : 9 - d
$VAR1 = bless( {
                 'att1' => 9,
                 'att2' => 'd',
                 'mod_att' => sub { "DUMMY" }
               }, 'main' );

Stichwort für Moo: Codereferenzen als Attribute.

http://blog.rolfrost.de/

The art of steam.

Kuerbis

2015-02-02 16:27

User since
2011-03-20
955 articles
BenutzerIn

Danke für die Beiträge.

View all threads created 2015-02-01 14:58.