Perl 类的构造函数解决思路
Perl 类的构造函数
这两种写法一个直接确定类型，另一个还需要处理一下，有区别吗？
------解决方案--------------------
第一种可以是某个类派生的，可以是子类。
- Perl code
sub new
{
my $object = shift();
my $class = ref($object)||$object;
my $date = {};
#......
bless($date,$class);
return $date;
}
- Perl code
sub new
{
my $class = shift();
#...
my $self = {};
#...
bless($self,$class);
return $self;
}
这两种写法一个直接确定类型，另一个还需要处理一下，有区别吗？
------解决方案--------------------
第一种可以是某个类派生的，可以是子类。