package BAST::Resource::Bundle; use strict; use warnings; use base qw/BAST::HasAttributes/; __PACKAGE__->has_children(resource => 'BAST::Resource'); __PACKAGE__->has_children(action => 'BAST::Action'); sub create_instance { my ($self, $attrs) = @_; print "Got here\n"; foreach my $resource ($self->resource) { $resource->create_instance($attrs); } foreach my $action ($self->action) { $action->execute($attrs); } } 1;