blob: cbb2d281c3c40a3596a012d6059652a9586b353c (
plain) (
blame)
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
|
package ComponentUI::View::Site;
use Reaction::Class;
use aliased 'Reaction::UI::View::TT';
class Site is TT, which {
};
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;
|