First page
Back
Continue
Last page
Overview
Graphics
Simple Ball Class - Property
sub color {
my $self=shift;
if (@_) {$self->{COLOR}=shift;}
print “COLOR is “, $self
->{COLOR},”\n”;
return $self->{COLOR};
}