Fonction de bénédiction de Perl

La description

Cette fonction indique à l'entité référencée par REF qu'il s'agit désormais d'un objet du package CLASSNAME, ou du package actuel si CLASSNAME est omis. L'utilisation de la forme à deux arguments de bénir est recommandée.

Syntaxe

Voici la syntaxe simple de cette fonction -

bless REF, CLASSNAME

bless REF

Valeur de retour

Cette fonction renvoie la référence à un objet béni dans CLASSNAME.

Exemple

Voici l'exemple de code montrant son utilisation de base, la référence d'objet est créée en bénissant une référence à la classe du package -

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