12.4 构造对象
所有对象都是引用,但不是所有引用都是对象。
一个引用不会作为对象运转,除非引用它的东西有
特殊标记告诉Perl它属于哪个包。
把一个引用和一个包名字标记起来的动作被称作赐福(blessing)
你可以把
赐福(bless)看作把一个引用转换成一个对象,尽管更准确地说是它把该引用转换成一个
对象引用。
bless 函数接收一个或者两个参数。第一个参数是一个引用,而第二个是要把引用赐福
(bless)成的包。如果忽略第二个参数,则使用当前包。
my $class = ref($invocant) || $invocant;
print "\$class is $class\n";
my $self={
'a'=>11,
'b'=>22,
'c'=>33
};
bless($self, $class); # 给予对象性质 告诉 方法属于哪个对象,$class==x1, bless 引用 特定的包 ,
### bless 引用 特定的包 来实现面向对象