Closer to Roles. Remove also from WebGUI::Definition, and put use Moose in all Asset classes.

lib/WebGUI/Asset.pm

@@ -20,6 +20,7 @@ use Clone qw(clone);
 use JSON;
 use HTML::Packer;
 
+use Moose;
 use WebGUI::Definition::Asset;
 define assetName  => 'asset';
 define tableName  => 'assetData';

lib/WebGUI/Asset/Event.pm

@@ -27,6 +27,7 @@ use WebGUI::Form;
 use WebGUI::Storage;
 use Storable;
 
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset';
 define assetName   => ['assetName', 'Asset_Event'];

lib/WebGUI/Asset/File.pm

@@ -18,6 +18,7 @@ use strict;
 use Carp;
 
 
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset';
 

lib/WebGUI/Asset/File/GalleryFile.pm

@@ -15,6 +15,7 @@ package WebGUI::Asset::File::GalleryFile;
 =cut
 
 use strict;
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::File';
 define assetName           => ['assetName', 'Asset_GalleryFile'];

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

@@ -15,6 +15,7 @@ package WebGUI::Asset::File::GalleryFile::Photo;
 =cut
 
 use strict;
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::File::GalleryFile';
 define assetName           => ['assetName', 'Asset_Photo'];

lib/WebGUI/Asset/File/Image.pm

@@ -20,6 +20,7 @@ use WebGUI::HTMLForm;
 use WebGUI::Utility;
 use WebGUI::Form::Image;
 
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::File';
 define assetName     => ['assetName', 'Asset_Image'];

lib/WebGUI/Asset/File/ZipArchive.pm

@@ -16,6 +16,7 @@ package WebGUI::Asset::File::ZipArchive;
 
 use strict;
 
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::File';
 define assetName => ['assetName', 'Asset_ZipArchive'];

lib/WebGUI/Asset/MapPoint.pm

@@ -16,6 +16,7 @@ package WebGUI::Asset::MapPoint;
 
 use strict;
 use Tie::IxHash;
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset';
 define assetName         => ['assetName', 'Asset_MapPoint'];

lib/WebGUI/Asset/MatrixListing.pm

@@ -17,6 +17,7 @@ package WebGUI::Asset::MatrixListing;
 use strict;
 use Tie::IxHash;
 #use base qw(WebGUI::AssetAspect::Comments WebGUI::Asset);
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset';
 define assetName => ['assetName', 'Asset_MatrixListing'];

lib/WebGUI/Asset/Post.pm

@@ -12,6 +12,7 @@ package WebGUI::Asset::Post;
 
 use strict;
 use Tie::CPHash;
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset';
 define assetName => ['assetName', 'Asset_Post'];

lib/WebGUI/Asset/Post/Thread.pm

@@ -11,6 +11,7 @@ package WebGUI::Asset::Post::Thread;
 #-------------------------------------------------------------------
 
 use strict;
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::Post';
 define assetName => ['assetName', 'Asset_Thread'];

lib/WebGUI/Asset/Redirect.pm

@@ -17,6 +17,7 @@ package WebGUI::Asset::Redirect;
 use strict;
 use WebGUI::Macro;
 
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset';
 define assetName => ['assetName', 'Asset_Redirect'];

lib/WebGUI/Asset/RichEdit.pm

@@ -20,6 +20,7 @@ use WebGUI::Utility;
 use WebGUI::International;
 use JSON;
 
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset';
 define assetName   => ['assetName', 'Asset_RichEdit'];

lib/WebGUI/Asset/Shortcut.pm

@@ -13,6 +13,7 @@ package WebGUI::Asset::Shortcut;
 use strict;
 use Carp qw/croak/;
 use Tie::IxHash;
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset';
 

lib/WebGUI/Asset/Sku.pm

@@ -16,6 +16,7 @@ package WebGUI::Asset::Sku;
 
 use strict;
 use Tie::IxHash;
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset';
 use WebGUI::International;

lib/WebGUI/Asset/Sku/Ad.pm

@@ -16,6 +16,7 @@ package WebGUI::Asset::Sku::Ad;
 
 use strict;
 use Tie::IxHash;
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::Sku';
 define assetName           => ['assetName', 'Asset_WikiMaster'];

lib/WebGUI/Asset/Sku/Donation.pm

@@ -17,6 +17,7 @@ package WebGUI::Asset::Sku::Donation;
 use strict;
 use Tie::IxHash;
 
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::Sku';
 define assetName           => ['assetName', 'Asset_Donation'];

lib/WebGUI/Asset/Sku/EMSBadge.pm

@@ -15,6 +15,7 @@ package WebGUI::Asset::Sku::EMSBadge;
 =cut
 
 use strict;
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::Sku';
 define assetName           => ['ems badge', 'Asset_EMSBadge'];

lib/WebGUI/Asset/Sku/EMSRibbon.pm

@@ -15,6 +15,7 @@ package WebGUI::Asset::Sku::EMSRibbon;
 =cut
 
 use strict;
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::Sku';
 define assetName           => ['ems ribbon', 'Asset_EMSRibbon'];

lib/WebGUI/Asset/Sku/EMSTicket.pm

@@ -15,6 +15,7 @@ package WebGUI::Asset::Sku::EMSTicket;
 =cut
 
 use strict;
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::Sku';
 define assetName           => ['ems ticket', 'Asset_EMSTicket'];

lib/WebGUI/Asset/Sku/EMSToken.pm

@@ -15,6 +15,7 @@ package WebGUI::Asset::Sku::EMSToken;
 =cut
 
 use strict;
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::Sku';
 define assetName           => ['ems token', 'Asset_EMSToken'];

lib/WebGUI/Asset/Sku/FlatDiscount.pm

@@ -16,6 +16,7 @@ package WebGUI::Asset::Sku::FlatDiscount;
 
 use strict;
 use Tie::IxHash;
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::Sku';
 define assetName           => ['assetName', 'Asset_FlatDiscount'];

lib/WebGUI/Asset/Sku/Product.pm

@@ -19,6 +19,7 @@ use WebGUI::SQL;
 use WebGUI::Utility;
 use JSON;
 
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::Sku';
 

lib/WebGUI/Asset/Sku/Subscription.pm

@@ -16,6 +16,7 @@ package WebGUI::Asset::Sku::Subscription;
 
 use strict;
 use Tie::IxHash;
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::Sku';
 define assetName           => ['assetName', 'Asset_Subscription'];

lib/WebGUI/Asset/Sku/ThingyRecord.pm

@@ -16,6 +16,7 @@ package WebGUI::Asset::Sku::ThingyRecord;
 
 use strict;
 use Tie::IxHash;
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::Sku';
 define assetName         => ['assetName', 'Asset_ThingyRecord'];

lib/WebGUI/Asset/Snippet.pm

@@ -15,6 +15,7 @@ package WebGUI::Asset::Snippet;
 =cut
 
 use strict;
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset';
 use WebGUI::Asset::Template;

lib/WebGUI/Asset/Story.pm

@@ -15,6 +15,7 @@ package WebGUI::Asset::Story;
 =cut
 
 use strict;
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset';
 define assetName         => ['assetName', 'Asset_Story'];

lib/WebGUI/Asset/Template.pm

@@ -16,6 +16,7 @@ package WebGUI::Asset::Template;
 
 use strict;
 
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset';
 

lib/WebGUI/Asset/WikiPage.pm

@@ -18,6 +18,7 @@ use strict;
 #    WebGUI::Asset
 #);
 
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset';
 

lib/WebGUI/Asset/Wobject.pm

@@ -23,6 +23,7 @@ use WebGUI::International;
 use WebGUI::Macro;
 use WebGUI::SQL;
 use WebGUI::Utility;
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset';
 define tableName   => 'wobject';

lib/WebGUI/Asset/Wobject/Article.pm

@@ -15,6 +15,7 @@ use Tie::IxHash;
 use WebGUI::International;
 use WebGUI::Paginator;
 
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::Wobject';
 define assetName => ['assetName', 'Asset_Article'];

lib/WebGUI/Asset/Wobject/Calendar.pm

@@ -13,6 +13,7 @@ use strict;
 #----------------------------------------------------------------------------
 
 #use base qw/WebGUI::Asset::Wobject WebGUI::JSONCollateral/;
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::Wobject';
 

lib/WebGUI/Asset/Wobject/Carousel.pm

@@ -17,6 +17,7 @@ use warnings;
 use JSON;
 use WebGUI::International;
 use WebGUI::Utility;
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::Wobject';
 define assetName => [ 'assetName', 'Asset_Carousel' ];

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

@@ -11,6 +11,7 @@ package WebGUI::Asset::Wobject::Collaboration::Newsletter;
 #-------------------------------------------------------------------
 
 use strict;
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::Wobject::Collaboration';
 define assetName => ['assetName', 'Asset_Newsletter'];

lib/WebGUI/Asset/Wobject/Dashboard.pm

@@ -17,6 +17,7 @@ use WebGUI::ProfileField;
 use Time::HiRes;
 use WebGUI::Asset::Wobject;
 
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::Wobject';
 define assetName => [ 'assetName', 'Asset_Dashboard' ];

lib/WebGUI/Asset/Wobject/DataForm.pm

@@ -25,6 +25,7 @@ use WebGUI::Inbox;
 use WebGUI::SQL;
 use JSON ();
 
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::Wobject';
 

lib/WebGUI/Asset/Wobject/DataTable.pm

@@ -13,6 +13,7 @@ $VERSION = "1.0.0";
 #-------------------------------------------------------------------
 
 use strict;
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::Wobject';
 define assetName         => ['assetName', 'Asset_EMSRibbon'];

lib/WebGUI/Asset/Wobject/EventManagementSystem.pm

@@ -15,6 +15,7 @@ package WebGUI::Asset::Wobject::EventManagementSystem;
 =cut
 
 use strict;
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::Wobject';
 define assetName => ['assetName', 'Asset_EventManagementSystem'];

lib/WebGUI/Asset/Wobject/Folder.pm

@@ -15,6 +15,7 @@ package WebGUI::Asset::Wobject::Folder;
 =cut
 
 use strict;
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::Wobject';
 

lib/WebGUI/Asset/Wobject/Gallery.pm

@@ -13,6 +13,7 @@ package WebGUI::Asset::Wobject::Gallery;
 use strict;
 #use Class::C3;
 #use base qw(WebGUI::AssetAspect::RssFeed WebGUI::Asset::Wobject);
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::Wobject';
 define assetName           => ['assetName', 'Asset_Gallery'];

lib/WebGUI/Asset/Wobject/GalleryAlbum.pm

@@ -13,6 +13,7 @@ package WebGUI::Asset::Wobject::GalleryAlbum;
 use strict;
 #use Class::C3;
 #use base qw(WebGUI::AssetAspect::RssFeed WebGUI::Asset::Wobject);
+use Moose;
 use WebGUI::Definition::Asset;
 define assetName           => ['assetName', 'Asset_GalleryAlbum'];
 define icon                => 'photoAlbum.gif';

lib/WebGUI/Asset/Wobject/HttpProxy.pm

@@ -22,6 +22,7 @@ use WebGUI::Asset::Wobject::HttpProxy::Parse;
 use WebGUI::Macro;
 use Apache2::Upload;
 
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::Wobject';
 define assetName => ['assetName', 'Asset_HttpProxy'];

lib/WebGUI/Asset/Wobject/InOutBoard.pm

@@ -7,6 +7,7 @@ use WebGUI::International;
 use WebGUI::Paginator;
 use WebGUI::SQL;
 
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::Wobject';
 define tableName => 'InOutBoard';

lib/WebGUI/Asset/Wobject/Layout.pm

@@ -16,6 +16,7 @@ package WebGUI::Asset::Wobject::Layout;
 
 use strict;
 use WebGUI::AdSpace;
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::Wobject';
 

lib/WebGUI/Asset/Wobject/Map.pm

@@ -17,6 +17,7 @@ use Tie::IxHash;
 use WebGUI::International;
 use WebGUI::Utility;
 use HTML::Entities qw(encode_entities);
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::Wobject';
 define assetName         => ['assetName', 'Asset_Map'];

lib/WebGUI/Asset/Wobject/Matrix.pm

@@ -17,6 +17,7 @@ use Tie::IxHash;
 use JSON;
 use WebGUI::International;
 use WebGUI::Utility;
+use Moose;
 use WebGUI::Definition::Asset;
 use feature ":5.10";
 extends 'WebGUI::Asset::Wobject';

lib/WebGUI/Asset/Wobject/MessageBoard.pm

@@ -16,6 +16,7 @@ use WebGUI::Asset::Wobject;
 use WebGUI::International;
 use WebGUI::SQL;
 
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::Wobject';
 define assetName => ['assetName', 'Asset_MessageBoard'];

lib/WebGUI/Asset/Wobject/MultiSearch.pm

@@ -27,6 +27,7 @@ use WebGUI::SQL;
 use WebGUI::Asset::Wobject;
 use WebGUI::Utility;
 
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::Wobject';
 define tableName => 'MultiSearch';

lib/WebGUI/Asset/Wobject/Navigation.pm

@@ -18,6 +18,7 @@ use WebGUI::SQL;
 use WebGUI::TabForm;
 use WebGUI::Utility;
 
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::Wobject';
 define assetName => ["assetName", 'Asset_Navigation'];

lib/WebGUI/Asset/Wobject/Poll.pm

@@ -23,6 +23,7 @@ use WebGUI::Image::Graph;
 use WebGUI::Storage;
 use JSON;
 
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::Wobject';
 define assetName => ['assetName', 'Asset_Poll'];

lib/WebGUI/Asset/Wobject/ProjectManager.pm

@@ -19,6 +19,7 @@ use WebGUI::International;
 use WebGUI::Utility;
 use WebGUI::HTML;
 use POSIX qw(ceil floor);
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::Wobject';
 define assetName => ['assetName', 'Asset_ProjectManager'];

lib/WebGUI/Asset/Wobject/SQLReport.pm

@@ -20,6 +20,7 @@ use WebGUI::Utility;
 use WebGUI::Asset::Wobject;
 use WebGUI::Text qw(:csv);
 
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::Wobject';
 define assetName => ['assetName', 'Asset_SQLReport'];

lib/WebGUI/Asset/Wobject/Search.pm

@@ -11,6 +11,7 @@ package WebGUI::Asset::Wobject::Search;
 #-------------------------------------------------------------------
 
 use strict;
+use Moose;
 use WebGUI::Definition::Asset;
 extends "WebGUI::Asset::Wobject";
 define assetName => ['assetName', 'Asset_Search'];

lib/WebGUI/Asset/Wobject/Shelf.pm

@@ -14,6 +14,7 @@ use strict;
 use List::MoreUtils;
 use Tie::IxHash;
 use WebGUI::International;
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::Wobject';
 use WebGUI::Text;

lib/WebGUI/Asset/Wobject/StockData.pm

@@ -16,6 +16,7 @@ use WebGUI::Utility;
 use WebGUI::Asset::Wobject;
 use Finance::Quote;
 
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::Wobject';
 define tableName => 'StockData';

lib/WebGUI/Asset/Wobject/StoryArchive.pm

@@ -16,6 +16,7 @@ use strict;
 
 #use Class::C3;
 #use base qw/WebGUI::AssetAspect::RssFeed WebGUI::Asset::Wobject/;
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::Wobject';
 define assetName => ['assetName', 'Asset_StoryArchive'];

lib/WebGUI/Asset/Wobject/StoryTopic.pm

@@ -13,6 +13,7 @@ $VERSION = "1.0.0";
 #-------------------------------------------------------------------
 
 use strict;
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::Wobject';
 #use Class::C3;

lib/WebGUI/Asset/Wobject/Survey.pm

@@ -16,6 +16,7 @@ use JSON;
 use WebGUI::International;
 use WebGUI::Form::File;
 use WebGUI::Utility;
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::Wobject';
 define assetName   => ['assetName', 'Asset_Survey'];

lib/WebGUI/Asset/Wobject/SyndicatedContent.pm

@@ -17,6 +17,7 @@ use WebGUI::Exception;
 use WebGUI::HTML;
 use WebGUI::International;
 
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::Wobject';
 

lib/WebGUI/Asset/Wobject/Thingy.pm

@@ -18,6 +18,7 @@ use WebGUI::Utility;
 use WebGUI::Text;
 use WebGUI::Form::File;
 use WebGUI::DateTime;
+use Moose;
 use WebGUI::Definition::Asset;
 
 extends 'WebGUI::Asset::Wobject';

lib/WebGUI/Asset/Wobject/TimeTracking.pm

@@ -18,6 +18,7 @@ use Tie::IxHash;
 use WebGUI::International;
 use WebGUI::Utility;
 use POSIX qw(ceil floor);
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::Wobject';
 define assetName => ['assetName', 'Asset_TimeTracking'];

lib/WebGUI/Asset/Wobject/UserList.pm

@@ -21,6 +21,7 @@ use WebGUI::International;
 use WebGUI::Pluggable;
 use WebGUI::Form::Image;
 use WebGUI::Form::File;
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::Wobject';
 

lib/WebGUI/Asset/Wobject/WeatherData.pm

@@ -28,6 +28,7 @@ BEGIN {
 }
 
 use WebGUI::International;
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::Wobject';
 define tableName => 'WeatherData';

lib/WebGUI/Asset/Wobject/WikiMaster.pm

@@ -16,6 +16,7 @@ package WebGUI::Asset::Wobject::WikiMaster;
 #    WebGUI::AssetAspect::RssFeed 
 #    WebGUI::Asset::Wobject
 #);
+use Moose;
 use WebGUI::Definition::Asset;
 extends 'WebGUI::Asset::Wobject';
 define assetName => ['assetName', 'Asset_RichEdit'];

lib/WebGUI/Definition.pm

@@ -47,7 +47,6 @@ These methods are available from this class:
 my ($import, $unimport, $init_meta) = Moose::Exporter->build_import_methods(
     install         => [ 'unimport' ],
     with_meta       => [ 'property', 'define' ],
-    also            => 'Moose',
 );
 
 #-------------------------------------------------------------------