Risposta.

Storia della questione:

Fin dal primo rilascio di Perl 5, il linguaggio ha supportato un modello di oggetti semplice attraverso il meccanismo di associazione dei riferimenti a un pacchetto (blessing). In Perl, gli oggetti sono riferimenti normali (a un hash, un array o uno scalare), "benedetti" dalla funzione bless, il che consente al sistema di trovare i metodi attraverso il pacchetto (namespace).

Problema:

I riferimenti non benedetti rimangono semplici strutture dati, e tentare di invocare un metodo su di essi porta a errori di runtime. Un programmatore che non presta attenzione al tipo di riferimento rischia di manipolare accidentalmente le internals dell'oggetto, violando l'incapsulamento. Inoltre, lavorare con operazioni di dereferenziazione "raw" {} o @{} senza controllo porta a bug difficili da trovare.

Soluzione:

Creare correttamente oggetti solo attraverso bless, e quindi accedere ai dati dell'oggetto solo tramite dereferenziazione, controllando il tipo usando il modulo Scalar::Util (ref, blessed). È sempre bene evitare l'accesso diretto alle strutture (ad esempio, $obj->{key}) al di fuori dei metodi della classe e implementare accessor (getter/setter) per il controllo.

Esempio di codice:

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;           # sicuro tramite accessor
print $dog->{name};         # accesso diretto, sconsigliato

Caratteristiche chiave:

L'associazione dei riferimenti a un pacchetto consente di organizzare una semplice OOP su qualsiasi struttura
Per prevenire errori, è consigliato utilizzare metodi accessor per accedere ai dati
Controlli del tipo di riferimento e appartenenza alla classe tramite blessed o ref riducono significativamente il numero di bug

Domande trabocchetto.

Può un normale riferimento a un hash essere utilizzato come oggetto senza bless?

No, senza la chiamata a bless il riferimento non ha associazione con il pacchetto, e Perl non troverà i metodi (ci sarà un errore "Can't call method"), nonostante la struttura interna identica.

Come determinare in modo sicuro se una variabile è davvero un oggetto, e non solo un riferimento?

Usare la funzione Scalar::Util::blessed($obj) per verificare se il riferimento è benedetto. Solo i riferimenti benedetti sono considerati oggetti.

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

È possibile chiamare un metodo su un riferimento non-oggetto senza errori?

Chiamare un metodo su un riferimento non benedetto genererà un errore fatale: Perl si aspetta che il riferimento conosca il proprio pacchetto. Le eccezioni sono i meccanismi AUTOLOAD e i caricamenti dinamici, ma questo è un antipattern che porta a errori.

Errori comuni e antipattern

Passare un riferimento non benedetto come oggetto
Accesso diretto alle internals di un oggetto senza metodi accessor
Mancanza di verifiche di tipo e appartenenza alla classe

Esempi dalla vita reale

Caso negativo

Un giovane sviluppatore crea manualmente una struttura $person = {name => 'Vasya'} e dimentica di chiamare bless, dopodiché tenta di chiamare $person->name(), il che porta a un errore di runtime.

Vantaggi:

Scrittura del codice veloce

Svantaggi:

Mancanza di incapsulamento
Errori fatali di runtime

Caso positivo

Nel codice viene sempre chiamato bless durante la creazione di un oggetto e viene utilizzato solo il metodo name() per accedere ai dati. Un controllo tramite blessed() consente di gestire gli errori prima di eseguire i metodi.