Re^3: Stuck on packages

[duckyd]

in reply to Re^2: Stuck on packages
in thread Stuck on packages

A simple getter method might look like:

sub get_foo {
    my $self = shift;
    return $self->{foo};
}

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;

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

[Yoda_Oz]

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...};
}

how do i make it an array or hash or whatever?

[SheridanCat]

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} ];
}

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

[Yoda_Oz]

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;