Perl 类的构造函数

[wxgiter]

sub new
{
	my $object = shift();
	my $class = ref($object)||$object;
         my $date = {};
         #......
	bless($date,$class);
	return $date;
}

sub new
{
	my $class = shift();
         #...
	my $self = {};
         #...
	bless($self,$class);
	return $self;
}

这两种写法一个直接确定类型，另一个还需要处理一下，有区别吗？

[wxlfh]

第一种可以是某个类派生的，可以是子类。

[wxgiter]

多谢了.