small adjustments

2009-12-04 10:41:13 -06:00 · 2009-12-04 10:41:13 -06:00 · fdb72a6d7f
commit fdb72a6d7f
parent b6058e8b11
3 changed files with 4 additions and 3 deletions
--- a/lib/WebGUI/Definition/Role/Object.pm
+++ b/lib/WebGUI/Definition/Role/Object.pm
@ -38,6 +38,8 @@ sub set {
    my $self = shift;
    my $properties = shift;
    for my $key ( keys %$properties ) {
+        return undef
+            unless $self->can($key);
        $self->$key($properties->{$key});
    }
    return 1;