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

Calls to set() and update() set attributes as well as "properties".

Browse source 
Fixes t/Keywords.t number 11.
This commit is contained in:
Scott Walters 2010-05-27 22:26:37 -04:00
parent 14b79a671b
commit 57fe0721ab
2 changed files with 21 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

23
lib/WebGUI/Definition/Role/Object.pm
View file

@ -85,13 +85,23 @@ is not an attribute of the object, then it is silently ignored.
=cut
sub set {
my $self = shift;
my $properties = @_ % 2 ? shift : { @_ };
my @orderedProperties = $self->getProperties;
KEY: for my $property ( @orderedProperties ) {
next KEY unless exists $properties->{$property};
$self->$property($properties->{$property});
my %seen;
my @settable = grep { ! $seen{$_}++ } (
$self->getProperties, # $self->meta->get_all_property_list, # same as $self->getProperties
$self->getReadableAttributes,
);
for my $attribute ( @settable ) {
next unless exists $properties->{$attribute};
$self->$attribute( $properties->{$attribute} );
}
# ignore unknown properties
return 1;
}
@ -181,5 +191,10 @@ sub getProperties {
return $self->meta->get_all_property_list;
}
sub getReadableAttributes {
my $self = shift;
return map $_->name, grep $_->has_accessor || $_->has_writer, $self->meta->get_all_attributes;
}
1;