2018-09-01T16:20:30 rostiHi ,
was ist denn bei Dir best practice? In meiner Praxis gibt es kein Moose. Und Mouse auch nicht. Und daß new() eine Klassenmethode ist, ist auch nichts neues. Es muss ja eine Klassenmethode sein, nur new() muss sie nicht heißen, sie kann.
MfG
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
package Point; use Moose; # automatically turns on strict and warnings has 'x' => (is => 'rw', isa => 'Int'); has 'y' => (is => 'rw', isa => 'Int'); sub clear { my $self = shift; $self->x(0); $self->y(0); } package Point3D; use Moose; extends 'Point'; has 'z' => (is => 'rw', isa => 'Int'); after 'clear' => sub { my $self = shift; $self->z(0); };