Re^5: Stuck on packages

Within the getter method you can access any of the attributes, so you just have to put them in the data structure you are wanting to return, such as:

sub get_as_array {
    my $self = shift;
    return [ $self->{engine}, $self->{wheels} ];
}
[download]

Is there something else you were wanting to do? If you dump the return of this, you'll see it's in an array.

Comment on Re^5: Stuck on packages Download Code

Replies are listed 'Best First'.
Re^6: Stuck on packages by Yoda_Oz (Sexton) on Jan 04, 2007 at 07:21 UTC
ARRAY(0x18012b8) is the output. here is the entire code: `#!/usr/bin/perl package Foo; sub new { my $class = shift; return bless { engine => "engine", wheels => "wheels" }, $class; } sub get_as_array { my $self = shift; return [ $self->{engine}, $self->{wheels} ]; } 1; my $foo = Foo->new; print $foo->get_as_array;` [download]	[reply] [d/l]
Re^7: Stuck on packages by shigetsu (Hermit) on Jan 04, 2007 at 10:09 UTC
You need to dereference the array reference returned by `get_as_array()` by saying `@{$foo->get_as_array}` before you print it.	[reply] [d/l] [select]
Re^7: Stuck on packages by blazar (Canon) on Jan 04, 2007 at 21:07 UTC
ARRAY(0x18012b8) is the output. Which was expected. Indeed in the post you're replying to, but failed to quote properly, there was clearly written "If you dump the return of this, you'll see it's in an array." Just use (e.g.) Data::Dumper's `Dump` instead of print.	[reply] [d/l]