simplify value widgets to reduce PROCESS calls, make some classes immutable which were not before. nice increase in performance.

3 files changed, 8 insertions, 28 deletions

diff --git a/lib/ComponentUI/Model/TestModel.pm b/lib/ComponentUI/Model/TestModel.pm
index deef6d0..3d633f3 100644
--- a/lib/ComponentUI/Model/TestModel.pm
+++ b/lib/ComponentUI/Model/TestModel.pm
@@ -1,7 +1,13 @@
 package ComponentUI::Model::TestModel;
 
 use lib 't/lib';
-use base 'Catalyst::Model::Reaction::InterfaceModel::DBIC';
+use aliased 'Catalyst::Model::Reaction::InterfaceModel::DBIC';
+
+use Reaction::Class;
+
+class TestModel is DBIC, which {
+
+};
 
 __PACKAGE__->config
   (
diff --git a/lib/ComponentUI/TestModel.pm b/lib/ComponentUI/TestModel.pm
index 71c9672..2559776 100644
--- a/lib/ComponentUI/TestModel.pm
+++ b/lib/ComponentUI/TestModel.pm
@@ -5,7 +5,6 @@ use base 'Reaction::InterfaceModel::Object';
 use Reaction::Class;
 use Reaction::InterfaceModel::Reflector::DBIC;
 
-
 my $reflector = Reaction::InterfaceModel::Reflector::DBIC->new;
 
 $reflector->reflect_schema
@@ -15,4 +14,5 @@ $reflector->reflect_schema
    sources => [qw/Foo Bar Baz/],
   );
 
+
 1;
diff --git a/lib/ComponentUI/View/Site.pm b/lib/ComponentUI/View/Site.pm
index fa89c0a..280b41e 100644
--- a/lib/ComponentUI/View/Site.pm
+++ b/lib/ComponentUI/View/Site.pm
@@ -11,29 +11,3 @@ class Site is TT, which {
 
 __END__;
 
-use Class::MOP;
-
-{
-  my @reflect_widgets = qw(ActionForm ObjectView ListView
-                           Field::File
-                           Field::Password
-                           Field::Text        DisplayField::Text
-                           Field::Number      DisplayField::Number
-                           Field::String      DisplayField::String
-                           Field::Boolean     DisplayField::Boolean
-                           Field::DateTime    DisplayField::DateTime
-                           Field::ChooseOne   DisplayField::RelatedObject
-                           Field::ChooseMany  DisplayField::Collection
-                           Field::HiddenArray DisplayField::List
-                          );
-
-
-  for (@reflect_widgets){
-    my $base = "Reaction::UI::Widget::${_}";
-    my $target = "ComponentUI::View::Site::Widget::${_}";
-    Class::MOP::load_class( $base );
-    $base->meta->create($target, superclasses => [$base]);
-  }
-}
-
-1;