adding some methods to role, other small cleanups

lib/WebGUI/Definition.pm

@@ -130,9 +130,7 @@ regular attributes.
 sub property {
     my ($meta, $name, %options) = @_;
     my %form_options;
-    my $prop_meta = 
-    $meta->property_meta;
-    #'WebGUI::Definition::Meta::Property';
+    my $prop_meta = $meta->property_meta;
     for my $key ( keys %options ) {
         if ( ! $prop_meta->meta->find_attribute_by_name($key) ) {
             $form_options{$key} = delete $options{$key};

lib/WebGUI/Definition/Role/Object.pm

@@ -36,7 +36,7 @@ sub get {
 
 sub set {
     my $self = shift;
-    my $properties = shift;
+    my $properties = @_ % 2 ? shift : { @_ };
     for my $key ( keys %$properties ) {
         return undef
             unless $self->can($key);
@@ -46,11 +46,22 @@ sub set {
 }
 
 sub update {
-    my $self;
+    my $self = shift;
     $self->set(@_);
     if ($self->can('write')) {
         $self->write;
     }
+    return 1;
+}
+
+sub getProperty {
+    my $self = shift;
+    return $self->meta->find_attribute_by_name(@_);
+}
+
+sub getProperties {
+    my $self = shift;
+    return $self->meta->get_all_properties;
 }
 
 1;