diff --git a/lib/WebGUI/Definition/Meta/Asset.pm b/lib/WebGUI/Definition/Meta/Asset.pm index 31a2f5ff5..7dd845569 100644 --- a/lib/WebGUI/Definition/Meta/Asset.pm +++ b/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', ); #------------------------------------------------------------------- diff --git a/lib/WebGUI/Definition/Meta/Class.pm b/lib/WebGUI/Definition/Meta/Class.pm index 140d34a9c..02ba9d7c2 100644 --- a/lib/WebGUI/Definition/Meta/Class.pm +++ b/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 diff --git a/t/Definition.t b/t/Definition.t index 1b5bb3a83..cfb51afa4 100644 --- a/t/Definition.t +++ b/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'; } {