Funzione Perl bless

Descrizione

Questa funzione dice all'entità referenziata da REF che ora è un oggetto nel pacchetto CLASSNAME, o il pacchetto corrente se CLASSNAME è omesso. Si raccomanda l'uso della forma a due argomenti della benedizione.

Sintassi

Di seguito è riportata la semplice sintassi per questa funzione:

bless REF, CLASSNAME

bless REF

Valore di ritorno

Questa funzione restituisce il riferimento a un oggetto benedetto in CLASSNAME.

Esempio

Di seguito è riportato il codice di esempio che mostra il suo utilizzo di base, il riferimento all'oggetto viene creato benedendo un riferimento alla classe del pacchetto -

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