From 599c1172394e3377d8e3e28c06557a99a1a10d1e Mon Sep 17 00:00:00 2001
From: groditi <groditi@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7>
Date: Thu, 21 Aug 2008 00:38:47 +0000
Subject: container support built into fields and an example of usage in
 ComponentUI

---
 lib/Reaction/UI/ViewPort/Field.pm | 24 +++++++++++++++---------
 1 file changed, 15 insertions(+), 9 deletions(-)

(limited to 'lib/Reaction/UI/ViewPort/Field.pm')

diff --git a/lib/Reaction/UI/ViewPort/Field.pm b/lib/Reaction/UI/ViewPort/Field.pm
index a4bb219..d3dd2e7 100644
--- a/lib/Reaction/UI/ViewPort/Field.pm
+++ b/lib/Reaction/UI/ViewPort/Field.pm
@@ -7,8 +7,6 @@ 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);
@@ -16,15 +14,19 @@ 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;
@@ -37,7 +39,8 @@ sub _model_has_value {
     return 1;
   }
   return 0;
-};
+}
+
 sub _build_value_string {
   my ($self) = @_;
   # XXX need the defined test because the IM lazy builds from
@@ -47,14 +50,17 @@ sub _build_value_string {
   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 _empty_string_value { '' }
+
 sub value_is_required {
   shift->attribute->is_required;
-};
+}
 
 __PACKAGE__->meta->make_immutable;
 
-- 
cgit v1.2.3-54-g00ecf