如果您无法下载资料，请参考说明：
1、部分资料下载需要金币，请确保您的账户上有足够的金币
2、已购买过的文档，再次下载不重复扣费
3、资料包下载后请先用软件解压，在使用对应软件打开
第12章面向对象编程12.1概述12.2对象和类12.3对象方法下面是一个类文件的基本结构packageTV;subnew(){my$class=shift;my(%params)=@_;my$self={};bless$self,$class;$self->{color}={defind$params{Tvcolor})?$params{Tvcolor):”black”;my$Tvtype;foreach$Tvtype(@Tvtype){chomp$Tvtype;……………..}}$self->address();return($self);}….1;Bean.pmpackageBean;requireExporter;@ISA=qw{EXporter};@EXPORT=qw(setBeanType);subnew{my$type=shift;my$this={};$this->{'Bean'}='Colombian';bless$this,$type;return$this;}subsetBeanType{my($class,$name)=@_;$class->{'Bean'}=$name;print"setbeanto$name\n";}1;packageCoffee;requireExporter;requireBean;@ISA=qw(EXporter,Bean);@EXPORT=qw(setImports,declarteMain,closeMain);subsetCoffeeType{my($class,$name)=@_;$class->{'Coffee'}=$name;print"Setcoffeetypeto$name\n";}subnew{my$type=shift;my$this=Bean->new();$this->{'Coffee'}='Instant';bless$this,$type;return$this;}1;
立即下载
