Fix POD, condense Asset attributes. A test for tableName in the constructor.

lib/WebGUI/Definition/Meta/Asset.pm

@@ -55,16 +55,8 @@ sub property_meta {
     return 'WebGUI::Definition::Meta::Property::Asset';
 }
 
-has 'tableName' => (
-    is  => 'rw',
-);
-
-has 'icon' => (
-    is => 'rw',
-);
-
-has 'assetName' => (
-    is => 'rw',
+has [ qw{tableName icon assetName} ] => (
+    is       => 'rw',
 );
 
 #-------------------------------------------------------------------

lib/WebGUI/Definition/Meta/Class.pm

@@ -48,8 +48,8 @@ These methods are available from this class:
 
 =head2 get_all_properties ( )
 
-Returns an array of all Properties, in all classes, in the
-order they were created in the Definition.
+Returns an array of all Properties, in all classes, in the order they were
+created in the Definition.
 
 =cut
 
@@ -72,8 +72,8 @@ sub get_all_properties {
 
 =head2 get_attributes ( )
 
-Returns an array of all attributes, but only for this class.  This
-is the API-safe way of doing $self->_attribute_map;
+Returns an array of all attributes, but only for this class.  This is the
+API-safe way of doing $self->_attribute_map;
 
 =cut
 

t/Definition.t

@@ -149,6 +149,8 @@ my $called_getProperties;
         'get_tables returns a list of all tables used by this class'
     );
 
+    my $object2 = __PACKAGE__->new(tableName => 'notAsset');
+    ::is $object2->tableName, 'asset', 'tableName ignored in constructor';
 }
 
 {