Perl bless 函数
描述
这个函数告诉 REF 引用的实体它现在是 CLASSNAME 包中的一个对象，或者如果 CLASSNAME 被省略，则为当前包。 建议使用 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;
}
