--Package (class) source code
#Date. PM
Package Date;
Sub new{
My $date ={
THE_YEAR=>2015,
THE_MON=>10,
The_day=>1,
};
Bless ($date);
return $date;
}
Sub year{
My $self =shift;
$self->{the_year}=shift if (@_);
return $self->{the_year};
}
Sub mon{
My $self =shift;
$self->{the_mon}=shift if (@_);
return $self->{the_mon};
}
Sub day{
My $self =shift;
$self->{the_day}=shift if (@_);
return $self->{the_day};
}
Sub setdate{
if (@_==4) {
My $self =shift;
$self->mon ($_[0]);
$self->day ($_[1]);
$self->year ($_[2]);
}
else{
Print "Error happend\n";
}
}
Sub disp{
My $self =shift;
Print $self->mon. " -". $self->day." -". $self->year." \ n ";
}
return 1;
---app code
650) this.width=650; "src=" Http://s3.51cto.com/wyfs02/M01/74/02/wKiom1YMM1LRzy2bAAB-kq8eJBE204.jpg "title=" 2015-10-01_030854.png "alt=" Wkiom1ymm1lrzy2baab-kq8ejbe204.jpg "/>
-Results
650) this.width=650; "src=" Http://s3.51cto.com/wyfs02/M01/73/FF/wKioL1YMM4mzdbvWAACSANGI6o8134.jpg "title=" 2015-10-01_030932.png "alt=" Wkiol1ymm4mzdbvwaacsangi6o8134.jpg "/>
This article is from the "Strive for Excellence" blog, please be sure to keep this source http://tiger506.blog.51cto.com/318536/1699708
Object-Oriented Programming example date default setting, change, display