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;}

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

[解决办法]
第一种可以是某个类派生的，可以是子类。