Thread OOP: Einem vorhandenen Objekte weitere Hashes hinzufügen (6 answers)
Opened by Phrosch at 2019-12-05 04:52

Daxim
 2019-12-05 07:30
#190947 #190947
User since
2007-08-01
114 articles
BenutzerIn
[Homepage]
user image
Verarbeite die Paare als Argumente für add. Füge sie der Hashreferenz hinzu, welche die Basis für die Objektinstanz bildet.

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
package MyClass;
sub new {
    my ($class, %args) = @_;
    return bless \%args => $class;
}
sub add {
    my ($self, %args) = @_;
    while (my ($k, $v) = each %args) {
        $self->{$k} = $v;
    }
    return $self;
}
sub greet {}

package main;
my $obj = MyClass->new(message => "Guten Morgen", nachname => "Wall", vorname => "Larry");
$obj->add(bla => 'blubb', foo => 'bar');
use DDP; p $obj;
__END__
MyClass  {
    public methods (3) : add, greet, new
    private methods (0)
    internals: {
        bla        "blubb",
        foo        "bar",
        message    "Guten Morgen",
        nachname   "Wall",
        vorname    "Larry"
    }
}


Ich habe auch new entwirrt.

View full thread OOP: Einem vorhandenen Objekte weitere Hashes hinzufügen