Función de bendición de Perl

Descripción

Esta función le dice a la entidad referenciada por REF que ahora es un objeto en el paquete CLASSNAME, o el paquete actual si se omite CLASSNAME. Se recomienda el uso de la forma de bendición de dos argumentos.

Sintaxis

A continuación se muestra la sintaxis simple para esta función:

bless REF, CLASSNAME

bless REF

Valor devuelto

Esta función devuelve la referencia a un objeto bendecido en CLASSNAME.

Ejemplo

A continuación se muestra el código de ejemplo que muestra su uso básico, la referencia del objeto se crea bendiciendo una referencia a la clase del paquete:

#!/usr/bin/perl

package Person;
sub new {
   my $class = shift;
   my $self = {
      _firstName => shift,
      _lastName  => shift,
      _ssn       => shift,
   };
   # Print all the values just for clarification.
   print "First Name is $self->{_firstName}\n";
   print "Last Name is $self->{_lastName}\n";
   print "SSN is $self->{_ssn}\n";
   bless $self, $class;
   return $self;
}