bless

描述 (Description)

此函数告诉REF引用的实体它现在是CLASSNAME包中的对象，或者如果省略CLASSNAME则是当前包。 建议使用两种形式的祝福。

语法 (Syntax)

以下是此函数的简单语法 -

bless REF, CLASSNAME
bless REF

返回值 (Return Value)

此函数返回对包含在CLASSNAME中的对象的引用。

例子 (Example)

以下是显示其基本用法的示例代码，通过祝福对包的类的引用来创建对象引用 -

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