asset immutability

lib/WebGUI/Asset.pm

@@ -2844,4 +2844,5 @@ sub www_widgetView {
         return $self->outputWidgetMarkup($width, $height, $templateId, $styleTemplateId);
 }
 
+__PACKAGE__->meta->make_immutable;
 1;

lib/WebGUI/Asset/Event.pm

@@ -2360,5 +2360,6 @@ equal and then choose by assetId.
 
 =cut
 
+__PACKAGE__->meta->make_immutable;
 1;
 

lib/WebGUI/Asset/File.pm

@@ -649,5 +649,5 @@ sub www_view {
     return 'chunked';
 }
 
-
+__PACKAGE__->meta->make_immutable;
 1;

lib/WebGUI/Asset/File/GalleryFile.pm

@@ -1171,4 +1171,5 @@ sub setPrivileges {
 }
 
 
+__PACKAGE__->meta->make_immutable;
 1; # Who knew the truth would be so obvious?

lib/WebGUI/Asset/File/GalleryFile/Photo.pm

@@ -585,4 +585,5 @@ sub www_showConfirmation {
     );
 }
 
+__PACKAGE__->meta->make_immutable;
 1;

lib/WebGUI/Asset/File/Image.pm

@@ -824,4 +824,5 @@ sub www_crop {
     return $self->getAdminConsole->render($f->print.$image,$i18n->get("crop image"));
 }
 
+__PACKAGE__->meta->make_immutable;
 1;

lib/WebGUI/Asset/File/ZipArchive.pm

@@ -252,5 +252,6 @@ sub www_view {
 }
 
 
+__PACKAGE__->meta->make_immutable;
 1;
 

lib/WebGUI/Asset/FilePile.pm

@@ -270,5 +270,6 @@ sub www_edit {
 	}
 }
 
+__PACKAGE__->meta->make_immutable;
 1;
 

lib/WebGUI/Asset/MapPoint.pm

@@ -390,6 +390,7 @@ sub www_view {
     return "redirect";
 }
 
+__PACKAGE__->meta->make_immutable;
 1;
 
 #vim:ft=perl

lib/WebGUI/Asset/MatrixListing.pm

@@ -1090,6 +1090,8 @@ sub www_viewScreenshots {
 
     return $self->processTemplate($var,$self->getParent->get("screenshotsTemplateId"));
 }
+
+__PACKAGE__->meta->make_immutable;
 1;
 
 #vim:ft=perl

lib/WebGUI/Asset/Post.pm

@@ -1818,6 +1818,6 @@ sub www_view {
 	return $self->getThread->www_view($self);
 }
 
-
+__PACKAGE__->meta->make_immutable;
 1;
 

lib/WebGUI/Asset/Post/Thread.pm

@@ -1394,5 +1394,6 @@ sub www_view {
 
 
 
+__PACKAGE__->meta->make_immutable;
 1;
 

lib/WebGUI/Asset/Redirect.pm

@@ -136,5 +136,6 @@ sub www_view {
     return $i18n->get('self_referential');
 }
 
+__PACKAGE__->meta->make_immutable;
 1;
 

lib/WebGUI/Asset/RichEdit.pm

@@ -676,6 +676,6 @@ sub www_edit {
 }
 
 
-
+__PACKAGE__->meta->make_immutable;
 1;
 

lib/WebGUI/Asset/Shortcut.pm

@@ -1288,5 +1288,6 @@ sub getShortcutsForAssetId {
     return WebGUI::Asset->getRoot($session)->getLineage(['descendants'], $properties); 
 }
 
+__PACKAGE__->meta->make_immutable;
 1;
 

lib/WebGUI/Asset/Sku.pm

@@ -672,4 +672,5 @@ sub www_view {
 	return "chunked";
 }
 
+__PACKAGE__->meta->make_immutable;
 1;

lib/WebGUI/Asset/Sku/Ad.pm

@@ -622,5 +622,6 @@ sub www_renew {
     return $self->www_view;
 }
 
+__PACKAGE__->meta->make_immutable;
 1;
 

lib/WebGUI/Asset/Sku/Donation.pm

@@ -187,4 +187,5 @@ sub www_donate {
     return $self->www_view;
 }
 
+__PACKAGE__->meta->make_immutable;
 1;

lib/WebGUI/Asset/Sku/EMSBadge.pm

@@ -519,4 +519,5 @@ sub www_edit {
 	return $self->processStyle('<h1>'.$i18n->get('ems badge').'</h1>'.$self->getEditForm->print);
 }
 
+__PACKAGE__->meta->make_immutable;
 1;

lib/WebGUI/Asset/Sku/EMSRibbon.pm

@@ -287,4 +287,5 @@ sub www_viewAll {
 }
 
 
+__PACKAGE__->meta->make_immutable;
 1;

lib/WebGUI/Asset/Sku/EMSTicket.pm

@@ -591,4 +591,5 @@ sub www_viewAll {
 
 
 
+__PACKAGE__->meta->make_immutable;
 1;

lib/WebGUI/Asset/Sku/EMSToken.pm

@@ -281,4 +281,5 @@ sub www_viewAll {
 }
 
 
+__PACKAGE__->meta->make_immutable;
 1;

lib/WebGUI/Asset/Sku/FlatDiscount.pm

@@ -239,4 +239,5 @@ sub www_addToCart {
     return $self->www_view;
 }
 
+__PACKAGE__->meta->make_immutable;
 1;

lib/WebGUI/Asset/Sku/Product.pm

@@ -1879,5 +1879,6 @@ override www_view => sub {
     super();
 };
 
+__PACKAGE__->meta->make_immutable;
 1;
 

lib/WebGUI/Asset/Sku/Subscription.pm

@@ -1011,5 +1011,6 @@ sub www_redeemSubscriptionCode {
     return $self->processStyle($self->processTemplate($var, $self->redeemSubscriptionCodeTemplateId));
 }
 
+__PACKAGE__->meta->make_immutable;
 1;
 

lib/WebGUI/Asset/Sku/ThingyRecord.pm

@@ -721,6 +721,7 @@ sub www_renew {
     return $self->www_editRecord( { message => $i18n->get('renewal added to cart') . ' ^ViewCart;' } );
 } ## end sub www_renew
 
+__PACKAGE__->meta->make_immutable;
 1;
 
 #vim:ft=perl

lib/WebGUI/Asset/Snippet.pm

@@ -288,6 +288,6 @@ sub www_view {
     return $output;
 }
 
-
+__PACKAGE__->meta->make_immutable;
 1;
 

lib/WebGUI/Asset/Story.pm

@@ -920,6 +920,7 @@ sub www_view {
 }
 
 
+__PACKAGE__->meta->make_immutable;
 1;
 
 #vim:ft=perl

lib/WebGUI/Asset/Template.pm

@@ -1174,5 +1174,6 @@ sub www_view {
 }
 
 
+__PACKAGE__->meta->make_immutable;
 
 1;

lib/WebGUI/Asset/WikiPage.pm

@@ -647,5 +647,5 @@ sub www_view {
 }
 
 
-
+__PACKAGE__->meta->make_immutable;
 1;

lib/WebGUI/Asset/Wobject.pm

@@ -517,5 +517,6 @@ sub www_view {
 	return "chunked";
 }
 
+__PACKAGE__->meta->make_immutable;
 1;
 

lib/WebGUI/Asset/Wobject/Article.pm

@@ -438,5 +438,6 @@ override www_view => sub {
 };
 
 
+__PACKAGE__->meta->make_immutable;
 1;
 

lib/WebGUI/Asset/Wobject/Calendar.pm

@@ -2200,5 +2200,6 @@ toUserTimeZone methods of WebGUI::DateTime for to make less confusion.
 
 =cut
 
+__PACKAGE__->meta->make_immutable;
 1;
 

lib/WebGUI/Asset/Wobject/Carousel.pm

@@ -217,5 +217,6 @@ sub view {
 	return $self->processTemplate($var, undef, $self->{_viewTemplate});
 }
 
+__PACKAGE__->meta->make_immutable;
 1;
 #vim:ft=perl

lib/WebGUI/Asset/Wobject/Collaboration.pm

@@ -1750,5 +1750,6 @@ sub www_viewRSS {
 	return $self->www_viewRss;
 }
 
+__PACKAGE__->meta->make_immutable;
 1;
 

lib/WebGUI/Asset/Wobject/Collaboration/Newsletter.pm

@@ -230,4 +230,5 @@ sub www_mySubscriptionsSave {
     return $self->www_view;
 }
 
+__PACKAGE__->meta->make_immutable;
 1;

lib/WebGUI/Asset/Wobject/Dashboard.pm

@@ -435,4 +435,5 @@ sub www_view {
 
 
 
+__PACKAGE__->meta->make_immutable;
 1;

lib/WebGUI/Asset/Wobject/DataForm.pm

@@ -2185,5 +2185,6 @@ sub www_process {
     return '';
 }
 
+__PACKAGE__->meta->make_immutable;
 1;
 

lib/WebGUI/Asset/Wobject/DataTable.pm

@@ -278,4 +278,5 @@ sub www_ajaxUpdateData {
     return $data;
 }
 
+__PACKAGE__->meta->make_immutable;
 1;

lib/WebGUI/Asset/Wobject/EventManagementSystem.pm

@@ -2766,5 +2766,6 @@ sub www_viewSubmissionQueue {
                $self->processTemplate( $params, $self->get('eventSubmissionMainTemplateId')));
 }
 
+__PACKAGE__->meta->make_immutable;
 1;
 

lib/WebGUI/Asset/Wobject/Folder.pm

@@ -296,5 +296,6 @@ override www_view => sub {
 };
 
 
+__PACKAGE__->meta->make_immutable;
 1;
 

lib/WebGUI/Asset/Wobject/Gallery.pm

@@ -1552,4 +1552,5 @@ sub www_listFilesForUserRss {
     return $self->processTemplate( $var, $self->templateIdListFilesForUserRss );
 }
 
+__PACKAGE__->meta->make_immutable;
 1;

lib/WebGUI/Asset/Wobject/GalleryAlbum.pm

@@ -1612,4 +1612,5 @@ sub www_viewRss {
     return $self->processTemplate( $var, $self->getParent->templateIdViewAlbumRss );
 }
 
+__PACKAGE__->meta->make_immutable;
 1;

lib/WebGUI/Asset/Wobject/HttpProxy.pm

@@ -508,4 +508,5 @@ sub www_view {
     }
 }
 
+__PACKAGE__->meta->make_immutable;
 1;

lib/WebGUI/Asset/Wobject/InOutBoard.pm

@@ -566,5 +566,6 @@ order by department, lastName, firstName, InOutBoard_statusLog.dateStamp";
 	return $self->processStyle($self->processTemplate(\%var, $self->reportTemplateId));
 }
 
+__PACKAGE__->meta->make_immutable;
 1;
 

lib/WebGUI/Asset/Wobject/Layout.pm

@@ -443,5 +443,6 @@ override www_view => sub {
     return super();
 };
 
+__PACKAGE__->meta->make_immutable;
 1;
 

lib/WebGUI/Asset/Wobject/Map.pm

@@ -631,6 +631,7 @@ sub www_ajaxSetPointLocation {
     return JSON->new->encode( {message => $i18n->get("message set point location")} ); 
 }
 
+__PACKAGE__->meta->make_immutable;
 1;
 
 #vim:ft=perl

lib/WebGUI/Asset/Wobject/Matrix.pm

@@ -1447,4 +1447,5 @@ sub www_setStickied {
     return undef;
 }
 
+__PACKAGE__->meta->make_immutable;
 1;

lib/WebGUI/Asset/Wobject/MessageBoard.pm

@@ -172,6 +172,7 @@ override www_view => sub {
 	super();
 };
 
+__PACKAGE__->meta->make_immutable;
 1;
 
 

lib/WebGUI/Asset/Wobject/MultiSearch.pm

@@ -132,4 +132,5 @@ override www_view => sub {
 	super();
 };
 
+__PACKAGE__->meta->make_immutable;
 1;

lib/WebGUI/Asset/Wobject/Navigation.pm

@@ -557,5 +557,6 @@ override www_view => sub {
 	}
 };
 
+__PACKAGE__->meta->make_immutable;
 1;
 

lib/WebGUI/Asset/Wobject/Poll.pm

@@ -557,5 +557,6 @@ sub www_vote {
 
 
 
+__PACKAGE__->meta->make_immutable;
 1;
 

lib/WebGUI/Asset/Wobject/ProjectManager.pm

@@ -1985,5 +1985,5 @@ sub www_viewProject {
 	return $self->processStyle($self->processTemplate($var,$self->projectDisplayTemplateId));
 }
 
-
+__PACKAGE__->meta->make_immutable;
 1;

lib/WebGUI/Asset/Wobject/SQLReport.pm

@@ -869,5 +869,6 @@ override www_view => sub {
 	super();
 };
 
+__PACKAGE__->meta->make_immutable;
 1;
 

lib/WebGUI/Asset/Wobject/Search.pm

@@ -208,5 +208,6 @@ sub view {
 	return $self->processTemplate(\%var, undef, $self->{_viewTemplate});
 }
 
+__PACKAGE__->meta->make_immutable;
 1;
 

lib/WebGUI/Asset/Wobject/Shelf.pm

@@ -419,4 +419,5 @@ sub www_importProducts {
 }
 
 
+__PACKAGE__->meta->make_immutable;
 1;

lib/WebGUI/Asset/Wobject/StockData.pm

@@ -401,4 +401,5 @@ sub www_displayStock {
 }
 
 
+__PACKAGE__->meta->make_immutable;
 1;

lib/WebGUI/Asset/Wobject/StoryArchive.pm

@@ -602,5 +602,6 @@ sub www_add {
     $todayFolder->www_add;
 }
 
+__PACKAGE__->meta->make_immutable;
 1;
 #vim:ft=perl

lib/WebGUI/Asset/Wobject/StoryTopic.pm

@@ -256,5 +256,6 @@ sub www_viewStory {
 }
 
 
+__PACKAGE__->meta->make_immutable;
 1;
 #vim:ft=perl

lib/WebGUI/Asset/Wobject/Survey.pm

@@ -3091,4 +3091,5 @@ END_SUMMARY
     }
 }
 
+__PACKAGE__->meta->make_immutable;
 1;

lib/WebGUI/Asset/Wobject/SyndicatedContent.pm

@@ -416,5 +416,6 @@ sub www_viewRSS20 {
 	return $self->www_viewRss;
 }
 
+__PACKAGE__->meta->make_immutable;
 1;
 

lib/WebGUI/Asset/Wobject/Thingy.pm

@@ -3574,4 +3574,5 @@ sub www_viewThingDataViaAjax {
     }
 }
 
+__PACKAGE__->meta->make_immutable;
 1;

lib/WebGUI/Asset/Wobject/TimeTracking.pm

@@ -883,4 +883,5 @@ sub _buildRow {
 
 }
 
+__PACKAGE__->meta->make_immutable;
 1;

lib/WebGUI/Asset/Wobject/UserList.pm

@@ -618,4 +618,5 @@ sub view {
 }
 
 
+__PACKAGE__->meta->make_immutable;
 1;

lib/WebGUI/Asset/Wobject/WeatherData.pm

@@ -141,4 +141,5 @@ sub view {
 	return $self->processTemplate(\%var, undef, $self->{_viewTemplate});
 }
 
+__PACKAGE__->meta->make_immutable;
 1;

lib/WebGUI/Asset/Wobject/WikiMaster.pm

@@ -751,4 +751,5 @@ sub www_search {
 	return $self->processStyle($self->processTemplate($var, $self->searchTemplateId));
 }
 
+__PACKAGE__->meta->make_immutable;
 1;

lib/WebGUI/Definition/Meta/Asset.pm

@@ -76,9 +76,17 @@ Returns an array of the names of all tables in every class used by this class.
 =cut
 
 sub get_tables {
+    my $self = shift;
+    if ($self->is_immutable) {
+        return @{ $self->{__immutable}{get_tables_methods} ||= [ $self->_get_tables ] };
+    }
+    goto &_get_tables;
+}
+
+sub _get_tables {
     my $self   = shift;
     my %seen   = ();
-    my @tables = 
+    my @tables =
         grep { ! $seen{$_}++ }
         map  { $_->tableName }
         $self->get_all_properties

lib/WebGUI/Definition/Meta/Class.pm

@@ -76,6 +76,14 @@ Returns an array of all attribute names across all meta classes.
 =cut
 
 sub get_all_attributes_list {
+    my $self = shift;
+    if ($self->is_immutable) {
+        return @{ $self->{__immutable}{get_all_attributes_list} ||= [ $self->_get_all_attributes_list ] };
+    }
+    goto &_get_all_attributes_list;
+}
+
+sub _get_all_attributes_list {
     my $self  = shift;
     my @attributes = ();
     CLASS: foreach my $meta ($self->get_all_class_metas) {