small adjustments

lib/WebGUI/Definition.pm

@@ -79,7 +79,7 @@ Sets the metaclass to WebGUI::Definition::Meta::Class.
 
 sub init_meta {
     my $class = shift;
-    my %options = @_; 
+    my %options = @_;
     $options{metaclass} = 'WebGUI::Definition::Meta::Class';
     return Moose->init_meta(%options);
 }

lib/WebGUI/Definition/Asset.pm

@@ -22,7 +22,6 @@ use WebGUI::Definition::Meta::Asset;
 use namespace::autoclean;
 no warnings qw(uninitialized);
 
-
 our $VERSION = '0.0.1';
 
 =head1 NAME
@@ -84,7 +83,7 @@ meta class into the options for each property.
 
 sub property {
     my ($meta, $name, %options) = @_;
-    $options{table} = $meta->table;
+    $options{table} //= $meta->table;
     return WebGUI::Definition::property($meta, $name, %options);
 }
 

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;