sub get_properties { my $self = shift; my $assignments = $self->get_sibling->Assignments; my @items; if ( defined($assignments) ) { foreach my $assignment ( in($assignments) ) { push( @items, DTS::AssignmentFactory->create($assignment)->get_properties ); } return \@items; } else { carp "This dynamic properties does not have any assignment\n"; return []; } }