Learning Perl Objects, References & ModulesLearning Perl Objects, References & ModulesSearch this book

9.15. Exercise

The answers for all exercises can be found in Section A.8.

9.15.1. Exercise [45 min]

Give the Animal class the ability to get and set the name and color. Be sure that your result works under use strict. Also make sure your get methods work with both a generic animal and a specific animal instance. Test your work with:

my $tv_horse = Horse->named("Mr. Ed");
$tv_horse->set_name("Mister Ed");
$tv_horse->set_color("grey");
print $tv_horse->name, " is ", $tv_horse->color, "\n";
print Sheep->name, " colored ", Sheep->color, " goes ", Sheep->sound, "\n";

What should you do if you're asked to set the name or color of a generic animal?



Library Navigation Links

Copyright © 2003 O'Reilly & Associates. All rights reserved.