diff --git a/lib/WebGUI/Definition/Role/Object.pm b/lib/WebGUI/Definition/Role/Object.pm index 9e1a8e815..451aa9bff 100644 --- a/lib/WebGUI/Definition/Role/Object.pm +++ b/lib/WebGUI/Definition/Role/Object.pm @@ -179,6 +179,20 @@ sub getFormProperties { #------------------------------------------------------------------- +=head2 getProperty ( $property_name ) + +Returns the structure used to create a property. + +=cut + +sub getProperty { + my $self = shift; + my $property_name = shift; + return $self->meta->find_attribute_by_name( $property_name ); +} + +#------------------------------------------------------------------- + =head2 getProperties ( ) Returns a list of the names of all properties of the object, as set by the Definition. @@ -190,5 +204,6 @@ sub getProperties { return $self->meta->get_all_property_list; } + 1;