From fdb72a6d7fe282a076f6185b0d60d80d8454fb3f Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Fri, 4 Dec 2009 10:41:13 -0600
Subject: [PATCH] small adjustments

---
 lib/WebGUI/Definition.pm             | 2 +-
 lib/WebGUI/Definition/Asset.pm       | 3 +--
 lib/WebGUI/Definition/Role/Object.pm | 2 ++
 3 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/lib/WebGUI/Definition.pm b/lib/WebGUI/Definition.pm
index a49fa6338..b7c2d6d6f 100644
--- a/lib/WebGUI/Definition.pm
+++ b/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);
 }
diff --git a/lib/WebGUI/Definition/Asset.pm b/lib/WebGUI/Definition/Asset.pm
index da5444482..146930687 100644
--- a/lib/WebGUI/Definition/Asset.pm
+++ b/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);
 }
 
diff --git a/lib/WebGUI/Definition/Role/Object.pm b/lib/WebGUI/Definition/Role/Object.pm
index 03dffc698..e2c7d5ce6 100644
--- 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;