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

Uniqueness check on attribute names in get_property_list. Add tests for that, and for get_attributes

Browse source
This commit is contained in:
Colin Kuskie 2009-12-11 11:56:16 -08:00
parent 334f3414c3
commit 059bd6761d
2 changed files with 35 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -67,12 +67,14 @@ Returns an array reference of the names of all properties, in the order they wer
=cut
sub get_property_list {
my $self = shift;
my $self = shift;
my @properties = ();
my %seen = ();
CLASS: foreach my $className (reverse $self->linearized_isa()) {
my $meta = $self->initialize($className);
next CLASS unless $meta->isa('WebGUI::Definition::Meta::Class');
push @properties,
grep { ! $seen{$_}++ } # Uniqueness check
map { $_->name } # Just the name
sort { $a->insertion_order <=> $b->insertion_order } # In insertion order
grep { $_->isa('WebGUI::Definition::Meta::Property') } # that are Meta::Properties