Here, here!

Whilst I want my code to be self-documenting, extraneous "little" words in sub and variable names do "little" to enhance this IMO too.

That's probably the strongest argument for properly executed overloading.

if ( $current_token == $token ) {...} where $current_token is an object of a class Token that overloads the == operator and does the right thing would be so much more intuative I think.

To my way of thinking, overloading is more useful than inheritance for giving clarity, especially when the latter is taken too far. Java's propensity to use inheritance rather than attributes combined with the need for (which this practice in part generates) long, unweildy class and method names leading to stuff like

Reader in = BufferedReader( UnbufferedReader( Stream( filename ).getStreamHandle()) );

drives me nuts:^) (That's from memory, inaccurate and an exaggeration, but it makes my point).

It's also part of the reasoning behind my desire for lvalue subs (with appropriate mechanisms for preinspection and rejection of assignment attempts), for use as assessor/mutator methods. Having to write

my $point = new Point();
$point->set_X( 3 );
$point->set_Y( 4 );
....
my $start_point = new Point;
$start_point = $point.copy();

$point->set_X( $point->get_X() + 1 )
    while $image->get_color_at($point) == RED;

my $end_point = new Point();
$end_point = $point->copy();

$image->draw_line_from_to( $start_point, $end_point, BLACK );
[download]

When it could be

my $point = new Point(3, 4);
...
my $start_point = $point;

$point->X++ while $image->color_at($point) == RED;  # or even $point->
+X = point->X + 1

my $end_point = $point;
$image->line( $start_point, $end_point, BLACK );
[download]

seems unnecessarially unweildy to me.

I'm not sure I'd go with the operator overloading here. It does mean you have to keep a firm grasp on all the interfaces and remember what a variable is supposed to contain. It also makes spotting mistakes harder - if I have the wrong object in $current_token, $current_token->equals($token) may well have Perl complaining it can't find that method, while $current_token == $token will (more or less) quietly do the wrong thing.

I like overloading, but I believe it is very, very dangerous if used too readily. It's great when you're creating a class that shares characteristics with the basic data types, like writing a Math::Complex or something, where $a * $b ends up meaning exactly what I expect. Also, overloading stringification is very handy. I would be really hesitant to use it to represent more arbitrary semantics.

As for your example, I'd probably want something like this:

my $point = new Point(42, 42);

my $start_point = $point->copy;
$point->add_x(1) while $image->element_at($point)->color == RED;

my $end_point = $point->copy;
$image->draw_line($start_point, $end_point, BLACK);
[download]

Makeshifts last the longest.

First, it should really be eq rather than ==, but I'm not yet sure which operators perls overloading can handle, not having made any use of it, but the example was intended as pseudo code rather than anything anyone would implement.

That aside, I do agree that overloading needs to be used with care, but I wouldn't consider equality testing abitrary semantics. I can however see your point in this regard given a non-implemented method, though it would rapidly show up in testing. The alternative would be to require that objects implement (even if only dummy) methods for the common operators, but that smacks of Java exceptions and is completely against the spirit of Perl.

You could view this type of failure (or lack of failure:) under the heading caveat implementor as with some much of standard perl stuff.

I'm not really sure to which extreme I would tend. I need more time using perl and to read more opinions before I could make that choice.

---

Examine what is said, not who speaks.