Arrays of objects in perl?

Question

I am new to perl and seriously finding it difficult to use its object oriented features as I come from C++,python Background. I wanted to create a list of objects , but I dont know how to achieve this in perl. I started with an array , but that doesn't seem to be working.

package X;

sub new {
   .....
}


package Y;

sub new {
  .....

}

package Z;

my @object_arr = ( X::new, Y::new);

foreach $object (@object_arr) {
  $object->xyz();
}

This throws an error "Can't call method "xyz" without a package or object reference ". Any help is appreciated.

Quentin · Accepted Answer · 2011-04-18 13:54:34Z

12

A fixed up version of your code, with comments, is:

package X;

# You need to return a blessed object 
sub new { 
        my $self = bless {}, "X";
        return $self;
}

# You need to define xyz before calling it
sub xyz {
        print "X";
}

package Y;

sub new {
        my $self = bless {}, "Y";
        return $self;

}


sub xyz {
        print "Y";
}

package Z;

# You need to call the new method
my @object_arr = ( X->new(), Y->new());

# Don't forget to my when defining variables (including $object)
foreach my $object (@object_arr) {
  $object->xyz();
}

You might also want to investigate Moose

answered Apr 18, 2011 at 13:54

Quentin

949k136 gold badges1.3k silver badges1.4k bronze badges

Sign up to request clarification or add additional context in comments.

2 Comments

wprl Over a year ago

+1 for Moose. Coming from a similar OO background, all I can say is I don't see why you wouldn't use Moose.

Sean Over a year ago

This will break as soon as you start deriving from class X or Y. You should say my $class = shift; my $self = bless {}, $class; there in the constructors.

Collectives™ on Stack Overflow

Arrays of objects in perl?

1 Answer 1

2 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

2 Comments

Your Answer

Sign up or log in

Post as a guest

Related