http://qs321.pair.com?node_id=592865


in reply to Stuck on packages

There's a number of things wrong here. First off Perl inheritence doesn't work like you've coded... you're injecting objects into class variables, which can certainly be useful, but it isn't inheritence and doesn't let you aggregate methods like you want. Inheritence in Perl revolves around the @ISA array. The @ISA array tells each package (class) that it "is a" member of another class, and tells Perl where to inherit methods from.

Secondly, if you want to display the attributes of a class instance you need to call the methods of that instance. Your three example classes don't have any methods, and print($car) just prints a stringified version of the $car object, which is the type of variable $car represents followed by its location in memory. To get the behavior you want you should do something like $car->print where "print" represents a method in the Family package that calls "getter" methods for each attribute you want to display.

I would strongly recommend Damian Conway's Object Oriented Perl if you want to learn (most) all there is to know about Perl 5 OO programming.

Gary Blackburn
Trained Killer