12.9. A Horse of a Different Color
Having all horses be brown would be boring. Let's add a method or two to get and set the color:
## in Animal
sub color {
my $self = shift;
$self->{Color};
}
sub set_color {
my $self = shift;
$self->{Color} = shift;
}
Now we can fix that color for Mr. Ed:
my $tv_horse = Horse->named('Mr. Ed');
$tv_horse->set_color('black-and-white');
print $tv_horse->name, ' is colored ', $tv_horse->color, "\n";
which results in:
Mr. Ed is colored black-and-white
|