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
has 'get_property_list' => (
is => 'ro',
default => sub {
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;
},
);
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;
}
#-------------------------------------------------------------------