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