Respuesta.

Historia de la pregunta:

Desde el primer lanzamiento de Perl 5, el lenguaje ha soportado un modelo de objeto elemental a través del mecanismo de enlace de referencias a paquetes (blessing). En Perl, los objetos son referencias ordinarias (a un hash, un array o un scalar), "bendecidas" por la función bless, lo que permite al sistema encontrar métodos a través del paquete (namespace).

Problema:

Las referencias no bendecidas siguen siendo estructuras de datos ordinarias, e intentar llamar a un método en ellas resulta en errores en tiempo de ejecución. Un programador que no preste atención al tipo de referencia corre el riesgo de manipular accidentalmente los internos del objeto, violando el encapsulamiento. Además, trabajar con la operación de desreferenciación "cruda" {} o @{} sin control conduce a errores difíciles de detectar.

Solución:

Se debe crear objetos correctamente solo a través de bless, luego acceder a los datos del objeto únicamente mediante desreferenciación, verificando el tipo usando el módulo Scalar::Util (ref, blessed). Siempre se debe evitar el acceso directo a las estructuras (por ejemplo, $obj->{key}) fuera de los métodos de la clase e implementar accesores (getter/setter) para el control.

Ejemplo de código:

package Animal;
sub new {
    my $class = shift;
    my $self  = { name => shift };
    bless $self, $class;
    return $self;
}
sub name {
    my $self = shift;
    $self->{name} = shift if @_;
    return $self->{name};
}

my $dog = Animal->new("Rex");
print $dog->name;           # seguro a través del accessor
print $dog->{name};         # acceso directo, no recomendado

Características clave:

El enlace de referencias a paquetes permite organizar OOP sencilla sobre cualquier estructura
Para prevenir errores, se recomienda utilizar métodos accessor para acceder a los datos
La verificación del tipo de referencia y la pertenencia a la clase a través de blessed o ref reduce significativamente la cantidad de errores

Preguntas capciosas.

¿Puede una referencia normal a un hash usarse como objeto sin bless?

No, sin la llamada a bless la referencia no tiene asociación con un paquete, y Perl no encontrará los métodos (habrá un error "Can't call method"), a pesar de tener una estructura interna idéntica.

¿Cómo se puede determinar de manera segura si una variable es realmente un objeto y no solo una referencia?

Utilizar la función Scalar::Util::blessed($obj) para verificar si la referencia está bendecida. Solo las referencias bendecidas se consideran objetos.

use Scalar::Util 'blessed';
my $obj = {};
print blessed($obj) ? 'yes' : 'no'; # imprimirá 'no'

¿Se puede llamar a un método en una referencia no objeto sin errores?

Llamar a un método en una referencia no bendecida provocará un error fatal: Perl espera que la referencia conozca su paquete. Las excepciones son los mecanismos AUTOLOAD y las cargas dinámicas, pero eso es un antipatrón que lleva a errores.

Errores comunes y antipatrón

Pasar una referencia no bendecida como objeto
Acceso directo a los internos del objeto sin métodos accessor
Falta de verificación del tipo y de la pertenencia a la clase

Ejemplo de la vida real

Caso negativo

Un joven desarrollador crea manualmente la estructura $person = {name => 'Vasya'} y olvida llamar a bless, después intenta llamar a $person->name(), lo que resulta en un error en tiempo de ejecución.

Ventajas:

Escritura rápida de código

Desventajas:

Falta de encapsulamiento
Errores fatales en tiempo de ejecución

Caso positivo

En el código siempre se llama a bless al crear un objeto y se utiliza únicamente el método name() para acceder a los datos. La verificación a través de blessed() permite manejar errores antes de ejecutar métodos.