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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
package Reaction::UI::ViewPort::Field;
use Reaction::Class;
use aliased 'Reaction::InterfaceModel::Object';
use aliased 'Reaction::Meta::InterfaceModel::Object::ParameterAttribute';
use namespace::clean -except => [ qw(meta) ];
extends 'Reaction::UI::ViewPort';
has value => (is => 'rw', lazy_build => 1);
has name => (is => 'rw', isa => 'Str', lazy_build => 1);
has label => (is => 'rw', isa => 'Str', lazy_build => 1);
has value_string => (is => 'rw', isa => 'Str', lazy_build => 1);
has model => (is => 'ro', isa => Object, required => 1);
has attribute => (is => 'ro', isa => ParameterAttribute, required => 1);
sub _build_name { shift->attribute->name };
sub _build_label {
join(' ', map { ucfirst } split('_', shift->name));
};
sub _build_value {
my ($self) = @_;
my $reader = $self->attribute->get_read_method;
return $self->model->$reader;
};
sub _model_has_value {
my ($self) = @_;
my $predicate = $self->attribute->get_predicate_method;
if (!$predicate || $self->model->$predicate
#|| ($self->attribute->is_lazy
# && !$self->attribute->is_lazy_fail)
) {
# either model attribute has a value now or can build it
return 1;
}
return 0;
};
sub _build_value_string {
my ($self) = @_;
# XXX need the defined test because the IM lazy builds from
# the model and DBIC can have nullable fields and DBIC doesn't
# have a way to tell us that doesn't force value inflation (extra
# SELECTs for belongs_to) so basically we're screwed.
return ($self->_model_has_value && defined($self->_build_value)
? $self->_value_string_from_value
: $self->_empty_string_value);
};
sub _value_string_from_value {
shift->value;
};
sub _empty_string_value { '' };
sub value_is_required {
shift->attribute->is_required;
};
__PACKAGE__->meta->make_immutable;
1;
__END__;
=head1 NAME
Reaction::UI::ViewPort::Field
=head1 DESCRIPTION
=head1 ATTRIBUTES
=head2 model
=head2 attribute
=head2 value
=head2 name
=head2 label
=head2 value_string
=head1 AUTHORS
See L<Reaction::Class> for authors.
=head1 LICENSE
See L<Reaction::Class> for the license.
=cut
|