Respuesta

Historia del asunto:

La sobrecarga de operadores (overloading) y el uso de métodos mágicos son uno de los aspectos avanzados de Perl, vitales para crear sus propias abstracciones de objetos, tipos complejos que admiten aritmética, comparaciones y conversiones a cadena. Perl no estaba inicialmente orientado a OOP y sobrecarga, pero desde la versión 5 es posible ampliar el comportamiento estándar de los objetos a través de pragma overload y la vinculación de métodos especiales.

Problema:

La clave es que el mecanismo es muy flexible, pero es fácil cometer errores: el comportamiento de un objeto sobrecargado no siempre es intuitivo, las sobrecargas incorrectas llevan a recursión infinita, conversiones no deseadas y errores de contexto. La mayor parte de los errores proviene de mezclar sobrecargas de cadenas y números, así como de acceder inesperadamente a métodos de operador no descritos.

Solución:

Utiliza estrictamente pragma overload para los operadores necesarios, describe claramente las formas de conversión del objeto, anticipa el trabajo en ambos contextos (numérico y de cadena) y describe explícitamente los fallbacks. Se recomienda manejar todos los operadores esperados y tomar en cuenta el legado de las sobrecargas.

Ejemplo de código:

package MyNum;
use overload '+' => 'add', '""' => 'as_string';

sub new {
    my ($class, $value) = @_;
    bless { val => $value }, $class;
}

sub add {
    my ($self, $other, $swap) = @_;
    my $sum = $self->{val} + (ref($other) ? $other->{val} : $other);
    return __PACKAGE__->new($sum);
}

sub as_string {
    my $self = shift;
    return $self->{val};
}

1;

# Uso
my $a = MyNum->new(5);
my $b = MyNum->new(7);
my $c = $a + $b;
print "$c
"; # 12

Características clave:

Para sobrecargar operadores se necesita pragma overload y la implementación de métodos
Se puede describir el manejo para casi todos los operadores (+, -, <, ==, "", 0+, etc.)
Los errores de implementación a menudo llevan a un tipo de dato incorrecto y recursión

Preguntas trampa

Pregunta trampa 1: Al sobrecargar solo el contexto de cadena de los operadores (""") ¿funcionará automáticamente la comparación numérica?

No, es necesario describir explícitamente la conversión numérica (0+), de lo contrario Perl intentará convertir a través del método de cadena, lo que no siempre lleva al resultado esperado (por ejemplo, para eq/== el comportamiento es diferente).

Pregunta trampa 2: ¿El objeto sobrecargado soportará operadores que no están explícitamente indicados en pragma overload?

No, solo aquellos que están listados explícitamente. Los demás utilizarán el comportamiento básico o causarán errores.

Pregunta trampa 3: ¿Puede un operador sobrecargado devolver un escalar simple en lugar de un objeto?

Puede, pero se pierde la cadena de métodos y el carácter de objeto, lo que conlleva a errores en el código posterior: o la sobrecarga dejará de funcionar para las siguientes operaciones, o ocurrirá una ruptura de la lógica.

Errores comunes y anti-patrones

No describir todos los operadores esperados
Devolver un escalar en lugar de un objeto en el método sobrecargado
Ignorar el contexto del operador y los fallbacks

Ejemplo de la vida real

Caso negativo

Un desarrollador sobrecargó solo el operador "+" y "" para su objeto, olvidando 0+, -, cmp. Al comparar a través de "==" obtuvo un resultado incorrecto, porque se activó la stringificación, y no la conversión deseada.

Ventajas:

Implementación rápida de casos simples

Desventajas:

Funcionamiento impreciso en otras operaciones, difícil de depurar

Caso positivo

Un desarrollador utiliza pragma overload y abarca todos los operadores necesarios (", 0+, +, -, x, <=>), y para aquellos incompatibles, lanza una excepción con un mensaje de error informativo.