Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
#-------------------------------------------------------------------
=head2 get_property_list ( )
Returns the name of all properties, in the order they were created in the Definition.
=cut
sub get_property_list {
my $self = shift;
my @properties =
map { $_->name }
sort { $a->insertion_order <=> $b->insertion_order }
grep { $_->meta->isa('WebGUI::Definition::Meta::Property') }
$self->meta->get_all_attributes;
return \@properties;
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.