Re: 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

Comment on Re: Stuck on packages Select or Download Code

Replies are listed 'Best First'.
Re^2: Stuck on packages by Yoda_Oz (Sexton) on Jan 04, 2007 at 04:46 UTC
how would i write a "getter" method?	[reply]
Re^3: Stuck on packages by duckyd (Hermit) on Jan 04, 2007 at 06:25 UTC
A simple getter method might look like: `sub get_foo { my $self = shift; return $self->{foo}; }` [download] Example: `use strict; use warnings; package Foo; sub new { my $class = shift; return bless { foo => "bar!\n" }, $class; } sub get_foo { my $self = shift; return $self->{foo}; } 1; my $foo = Foo->new; print $foo->get_foo;` [download] The above code will print `bar!` There are many modules on CPAN that can create getter and setter methods for you, Class::Accessor and Class::MethodMaker are a couple of examples	[reply] [d/l] [select]
Re^4: Stuck on packages by Yoda_Oz (Sexton) on Jan 04, 2007 at 06:43 UTC
ok i understand now! so what would i need to code if i wanted something like this? `sub new { my $class = shift; return bless { engine => "engine", wheels => "wheels", etc...}, $c +lass; } sub get_foo { my $self = shift; return $self->{engine,wheels,etc...}; }` [download] how do i make it an array or hash or whatever?	[reply] [d/l]
Re^5: Stuck on packages by SheridanCat (Pilgrim) on Jan 04, 2007 at 07:16 UTC
Re^6: Stuck on packages by Yoda_Oz (Sexton) on Jan 04, 2007 at 07:21 UTC
Some notes below your chosen depth have not been shown here
Re^3: Stuck on packages by SheridanCat (Pilgrim) on Jan 04, 2007 at 07:22 UTC
You've already had Damian's book recommended to you. For instant gratification, look at perlboot. You seem to be lacking some basic understanding of how OOP works in Perl.	[reply]
A reply falls below the community's threshold of quality. You may see it by logging in.


"be consistent"
	PerlMonks