想了两种办法:
1. 子类新建一个hash,一项是对父类的引用,其他是增加的属性,用
AUOTLOAD调用父类的方法。
2. 定义一个全局的hash保存属性
1. 子类新建一个hash,一项是对父类的引用,其他是增加的属性,用
AUOTLOAD调用父类的方法。
2. 定义一个全局的hash保存属性
package h;
my %CV;
sub new{
my $class=shift;
my $self=$class->SUPER::new(@_);
$CV{$self}=10000;
return $self;
}
sub getvalue{
my $self=shift;
$CV{$self};
}
sub DESTROY{
my $self=shift;
delete $CV{$self};
$self->SUPER::DESTROY();
}