2019-09-30T14:00:41 GwenDragon

Warum trennst du in setter und getter?

...

Oder was meint ihr?

Quote

Provide separate read and write accessors.

• Ich kann schneller erkennen, ob ein Attribut "read-write" oder "read-only" ist.
• Ich mag zur Diagnose gelegentlich per grep oder ähnlichem feststellen, an welchen Stellen im Code denn ein Attribut gesetzt worden sein könnte. Wenn Getter und Setter die gleiche Routine sind, dann geht das nicht - im Fall von location(%fields) wird erst zur Laufzeit entschieden, ob ein Getter oder Setter vorliegt.
• Ich habe oft, so wie hier bei location, den Fall, dass zwei Attribute "zusammenpassen" müssen. In dem Fall verwende ich keinen Setter, sondern eine Methode wie move. Wenn ich Deinen Accessor so anwende:
  Code (perl): (dl )

  $person->location(location => 'vorne links')
  ...dann ist hinterher die Postleitzahl futsch, und es mag mühsam sein, herauszufinden, warum. (Der Getter ist in dem Beispiel, das Du übernommen hast, auch seeehr verdächtig, er gibt einfach das Objekt zurück).
• Manchmal sind meine Attribute ArrayRefs oder HashRefs. Da brauche ich dann oft Getter, die ein einzelnes Element zurückgeben - und schon habe ich einen Getter mit Attribut.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

use 5.020;
package Sphere;

sub new {
    my $class = shift;
    my $self = {
        location => { x => 1, y => 2, z => 3 },
        radius   => 100,
    };
    bless $self,$class;
}

sub get_location {
    my $self = shift;
    return $self->{location}{shift()};
}

package main;

my $sphere = Sphere->new;
my $y = get_location('y');
say $y;

Moose

MooseX::SemiAffordanceAccessor