Perl bless 函数

• 

  描述

  bless 函数告诉REF引用的实体，它现在是CLASSNAME包中的对象，如果省略CLASSNAME，则为当前包中的对象。建议使用bless的两个参数形式。
• 

  句法

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

  
  bless REF, CLASSNAME
  
  bless REF
  

• 

  返回值

  此函数返回对有CLASSNAME祝福的对象的引用。
• 

  示例

  以下是显示其基本用法的示例代码 (客户端)-

   
  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;
  }