From a5200252cbe43d0d240e75e95d9dfd1623975172 Mon Sep 17 00:00:00 2001 From: groditi Date: Fri, 5 Oct 2007 19:28:51 +0000 Subject: simplify value widgets to reduce PROCESS calls, make some classes immutable which were not before. nice increase in performance. --- lib/ComponentUI/Model/TestModel.pm | 8 +++++++- lib/ComponentUI/TestModel.pm | 2 +- lib/ComponentUI/View/Site.pm | 26 -------------------------- 3 files changed, 8 insertions(+), 28 deletions(-) (limited to 'lib/ComponentUI') 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; -- cgit v1.2.3-54-g00ecf