Função de bênção Perl

Descrição

Esta função diz à entidade referenciada por REF que agora é um objeto no pacote CLASSNAME, ou o pacote atual se CLASSNAME for omitido. O uso da forma de bênção com dois argumentos é recomendado.

Sintaxe

A seguir está a sintaxe simples para esta função -

bless REF, CLASSNAME

bless REF

Valor de retorno

Esta função retorna a referência a um objeto abençoado em CLASSNAME.

Exemplo

A seguir está o código de exemplo mostrando seu uso básico, a referência do objeto é criada abençoando uma referência à classe do pacote -

#!/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;
}