Re^2: Stuck on packages

[Yoda_Oz]

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

how would i write a "getter" method?

[duckyd]

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.

[SheridanCat]

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.

[Yoda_Oz]

just been reading pearlboot actually...