Perl - Array of objects in object

Question

I have objA which has some level of abstraction, and I'm trying to create objB that has it's own attributes but one of them is array of objA. I want to be able to create objB and populate it's array of objA with values. How this can be coded in perl?

Borodin · Accepted Answer · 2014-06-05 00:48:11Z

2

If your ObjA objects are based on hashes then you can have a field that corresponds to an array reference to store the list of ObjB objects.

You don't say how you want to use or access these items, but you could, say, write your methods like this

package ObjA;

sub new {
  my ($class);
  bless {}, $class;
}

sub add_b_object {
  my ($self, $b_obj);
  push @{ $self->{b_objects} }, $b_obj;
}

Then your code would look like

my $a_obj = ObjA->new;

for (1..3) {
  my $b_obj = ObjB->new;
  $a_obj->add_b_object($b_obj);
}

I hope that helps

answered Jun 5, 2014 at 0:48

Borodin

127k9 gold badges72 silver badges146 bronze badges

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

Collectives™ on Stack Overflow

Perl - Array of objects in object

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related