Thread Moo Attribute überschreiben (7 answers)
Opened by Kuerbis at 2015-02-01 14:58

Kuerbis
 2015-02-01 14:58
#179424 #179424
User since
2011-03-20
942 Artikel
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 )
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

#!/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' } );

View full thread Moo Attribute überschreiben