Perl-bless

Perl bless関数

説明

この関数は、それがCLASSNAMEパッケージ内のオブジェクトであること、またはCLASSNAMEが省略されている場合は現在のパッケージであることをREFによって参照されるエンティティに伝えます。 2引数形式のblessを使用することをお勧めします。

構文

以下は、この関数の簡単な構文です-

bless REF, CLASSNAME

bless REF

戻り値

この関数はCLASSNAMEに祝福されたオブジェクトへの参照を返します。

例

以下はその基本的な使い方を示すサンプルコードです。オブジェクト参照はパッケージのクラスへの参照を祝福することによって作成されます -

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