lib/ComponentUI/View/Site.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39

package ComponentUI::View::Site;

use Reaction::Class;
use aliased 'Reaction::UI::View::TT';

class Site is TT, which {

};

1;

__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;