Re^2: curried-up moose

in reply to Re: curried-up moose
in thread curried-up moose

pobocks,
There is heated debate regarding chained methods as well as a method returning a reference to the object (good idea or not) but it works like this (traditional perl OO):

sub legs {
    my ($self, $attribute, $val) = @_;
    $self->{legs}{$attribute} = $val;
    return $self;
}

sub eyes {
    my ($self, $attribute, $val) = @_;
    $self->{eyes}{$attribute} = $val;
    return $self;
}
[download]

In other words, the method returns the object so you can then invoke another method on the return value and then assign the return value of that chained method back to the original scalar holding a reference to the object. I made minor updates to this node soon after submitting as I hadn't seen the original code in the root thread.

Cheers - L~R

Comment on Re^2: curried-up moose Download Code

Replies are listed 'Best First'.
Re^3: curried-up moose by pobocks (Chaplain) on Jan 22, 2009 at 07:35 UTC
That is a remarkably clear summary, and you may consider me up to speed, and thankful for the explanation. I can see why there is debate over this; it seems vaguely distasteful to me, because it means that the code doesn't match the mental model of the thing it's modeling. On the other hand, the savings in typing must certainly make it attractive to many. `for(split(" ","tsuJ rehtonA lreP rekcaH")){print reverse . " "}print "\b.\n";`	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: curried-up moose
by pobocks (Chaplain) on Jan 22, 2009 at 07:35 UTC

That is a remarkably clear summary, and you may consider me up to speed, and thankful for the explanation.

I can see why there is debate over this; it seems vaguely distasteful to me, because it means that the code doesn't match the mental model of the thing it's modeling. On the other hand, the savings in typing must certainly make it attractive to many.

for(split(" ","tsuJ rehtonA lreP rekcaH")){print reverse . " "}print "\b.\n";

[reply]
[d/l]

In Section Seekers of Perl Wisdom