Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #-------------------------------------------------------------------
- =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;
- }
Add Comment
Please, Sign In to add comment