1 package Reaction::UI::ViewPort::ObjectView;
5 use aliased 'Reaction::UI::ViewPort::DisplayField::Text';
6 use aliased 'Reaction::UI::ViewPort::DisplayField::Number';
7 use aliased 'Reaction::UI::ViewPort::DisplayField::Boolean';
8 use aliased 'Reaction::UI::ViewPort::DisplayField::String';
9 use aliased 'Reaction::UI::ViewPort::DisplayField::DateTime';
10 use aliased 'Reaction::UI::ViewPort::DisplayField::RelatedObject';
11 use aliased 'Reaction::UI::ViewPort::DisplayField::List';
12 use aliased 'Reaction::UI::ViewPort::DisplayField::Collection';
13 use aliased 'Reaction::InterfaceModel::Object';
16 class ObjectView is 'Reaction::UI::ViewPort', which {
17 has object => (isa => Object, is => 'ro', required => 1);
18 has ordered_fields => (is => 'rw', isa => 'ArrayRef', lazy_build => 1);
21 isa => 'HashRef', is => 'rw', init_arg => 'fields', lazy_build => 1,
25 ( is => 'rw', isa => 'ArrayRef', required => 1, default => sub{ [] } );
29 implements fields => as { shift->_field_map };
31 implements BUILD => as {
32 my ($self, $args) = @_;
33 unless ($self->_has_field_map) {
35 my $object = $self->object;
36 my %excluded = map{$_ => 1} @{$self->exclude_fields};
37 for my $attr (grep { !$excluded{$_->name} } $object->parameter_attributes) {
38 push(@field_map, $self->_build_fields_for($attr => $args));
41 my %field_map = @field_map;
42 $self->_field_map( \%field_map );
46 implements _build_fields_for => as {
47 my ($self, $attr, $args) = @_;
48 my $attr_name = $attr->name;
49 my $builder = "_build_fields_for_name_${attr_name}";
51 if ($self->can($builder)) {
52 @fields = $self->$builder($attr, $args); # re-use coderef from can()
53 } elsif ($attr->has_type_constraint) {
54 my $constraint = $attr->type_constraint;
55 my $base_name = $constraint->name;
57 CONSTRAINT: while (defined($constraint)) {
58 my $name = $constraint->name;
59 $name = $attr->_isa_metadata if($name eq '__ANON__');
60 if (eval { $name->can('meta') } && !$tried_isa++) {
61 foreach my $class ($name->meta->class_precedence_list) {
62 my $mangled_name = $class;
63 $mangled_name =~ s/:+/_/g;
64 my $builder = "_build_fields_for_type_${mangled_name}";
65 if ($self->can($builder)) {
66 @fields = $self->$builder($attr, $args);
72 unless (defined($base_name)) {
73 $base_name = "(anon subtype of ${name})";
75 my $mangled_name = $name;
76 $mangled_name =~ s/:+/_/g;
77 my $builder = "_build_fields_for_type_${mangled_name}";
78 if ($self->can($builder)) {
79 @fields = $self->$builder($attr, $args);
83 $constraint = $constraint->parent;
85 if (!defined($constraint)) {
86 confess "Can't build field ${attr_name} of type ${base_name} without $builder method or _build_fields_for_type_<type> method for type or any supertype";
89 confess "Can't build field ${attr} without $builder method or type constraint";
94 implements _build_field_map => as {
95 confess "Lazy field map building not supported by default";
98 implements _build_ordered_fields => as {
100 my $ordered = $self->sort_by_spec($self->column_order, [keys %{$self->_field_map}]);
101 return [@{$self->_field_map}{@$ordered}];
104 implements _build_simple_field => as {
105 my ($self, $class, $attr, $args) = @_;
106 my $attr_name = $attr->name;
108 if (my $config = $args->{Field}{$attr_name}) {
111 my $field = $class->new(
112 object => $self->object,
115 location => join('-', $self->location, 'field', $attr->name),
119 return ($attr_name => $field);
122 implements _build_fields_for_type_Num => as {
123 my ($self, $attr, $args) = @_;
124 return $self->_build_simple_field(Number, $attr, $args);
127 implements _build_fields_for_type_Int => as {
128 my ($self, $attr, $args) = @_;
129 return $self->_build_simple_field(Number, $attr, $args);
132 implements _build_fields_for_type_Bool => as {
133 my ($self, $attr, $args) = @_;
134 return $self->_build_simple_field(Boolean, $attr, $args);
137 implements _build_fields_for_type_Password => as { return };
139 implements _build_fields_for_type_Str => as {
140 my ($self, $attr, $args) = @_;
141 return $self->_build_simple_field(String, $attr, $args);
144 implements _build_fields_for_type_SimpleStr => as {
145 my ($self, $attr, $args) = @_;
146 return $self->_build_simple_field(String, $attr, $args);
149 implements _build_fields_for_type_DateTime => as {
150 my ($self, $attr, $args) = @_;
151 return $self->_build_simple_field(DateTime, $attr, $args);
154 implements _build_fields_for_type_Enum => as {
155 my ($self, $attr, $args) = @_;
156 return $self->_build_simple_field(String, $attr, $args);
159 implements _build_fields_for_type_ArrayRef => as {
160 my ($self, $attr, $args) = @_;
161 return $self->_build_simple_field(List, $attr, $args)
164 implements _build_fields_for_type_Reaction_InterfaceModel_Collection => as {
165 my ($self, $attr, $args) = @_;
166 return $self->_build_simple_field(Collection, $attr, $args)
169 implements _build_fields_for_type_Reaction_InterfaceModel_Object => as {
170 my ($self, $attr, $args) = @_;
171 return $self->_build_simple_field(RelatedObject, $attr, $args);
177 delete ${__PACKAGE__ . '::'}{inner};