oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Change get_property_list from an attribute to a method in Definition::Meta::Class.

Browse source
This commit is contained in:
Colin Kuskie 2009-12-10 15:54:49 -08:00
parent c2fca8e178
commit 849e8d4037
1 changed files with 9 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

22
lib/WebGUI/Definition/Meta/Class.pm
View file

@ -52,19 +52,15 @@ Returns the name of all properties, in the order they were created in the Defini
=cut =cut
sub get_property_list {
has 'get_property_list' => ( my $self = shift;
is => 'ro', my @properties =
default => sub { map { $_->name }
my $self = shift; sort { $a->insertion_order <=> $b->insertion_order }
my @properties = grep { $_->meta->isa('WebGUI::Definition::Meta::Property') }
map { $_->name } $self->meta->get_all_attributes;
sort { $a->insertion_order <=> $b->insertion_order } return \@properties;
grep { $_->meta->isa('WebGUI::Definition::Meta::Property') } }
$self->meta->get_all_attributes;
return \@properties;
},
);
#------------------------------------------------------------------- #-------------------------------------------------------------------