http://www.perlmonks.org?node_id=417738


in reply to multiple method calls against the same object, revisited

I prefer "fixing" this at the source. I tend to have methods that are purely called for their side-effects, and not for their return values, return the object they acted upon.

And that includes accessors. Tk does it that way as well, and I like it. Example:

sub accessor { my $self = shift; if (@_) { # Sets the attribute. $$self{key} = shift; return $self; } return $$self{key}; # Gets the attribute. }
Then you can write code like this:
my $obj->key1(value1) ->key2(value2) ->key3(value3);

Replies are listed 'Best First'.
Re^2: multiple method calls against the same object, revisited
by Aristotle (Chancellor) on Dec 28, 2004 at 22:30 UTC

    Except that style is awful.

    There is temptation to mix calls to setters in front of method calls with useful return values, which results in pretty confusing to read code:

    my $label = $button->border( 20 )->label;

    It gets really bad when some of the object's methods return aggregated objects. Suddenly there are multiple different kinds of call chains, and the reader has to juggle far too much knowledge to keep affairs straight.

    In the worst case you get code like this:

    my $label_formatting = $window->title( 'foo' ) ->child->border( 20 ) ->child->font_style;

    If that's not ugly as all sin, you tell me what is. Transgressions like those shown above are rare, to be sure (and thankful).

    But $self-returning mutators blur the lines between different types of methods. If you don't think it's an issue in practice, just look at the encouraged OO syntax in the Data::Dumper POD. That API actually encourages mixing mutators and with non-mutator calls. That Tk in particular does things this way does everything but speak for it; the Tk API is a mess few others get even close to.

    And methods should not return different things depending on the number of their arguments anyway.

    Makeshifts last the longest.