Perl bless 函式

說明

此函式告知 REF 引用的實體它現在是 CLASSNAME 軟體包中的一個物件，或者如果省略了 CLASSNAME，那麼它便是當前軟體包中的一個物件。建議使用這種雙引數形式的 bless。

語法

以下是此函式的簡單語法 −

bless REF, CLASSNAME

bless REF

返回值

此函式返回一個對 CLASSNAME 中 bless 的物件的引用。

示例

以下是如何使用它的基本用法，透過 bless 一個軟體包的類引用來建立物件引用 −

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