X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FReaction%2FUI%2FWidget%2FValue.pm;h=1ab37be1956d00924297800297538c97ec7ea079;hb=9ac8f2c2b38ebf2f74930d7ac511b973a052272f;hp=48d362d84ae4b85552483cf9dcddf1e4f1c12a9a;hpb=aa8c0c904641fa20c5f50882d09c1502aae19b3a;p=catagits%2FReaction.git

diff --git a/lib/Reaction/UI/Widget/Value.pm b/lib/Reaction/UI/Widget/Value.pm
index 48d362d..1ab37be 100644
--- a/lib/Reaction/UI/Widget/Value.pm
+++ b/lib/Reaction/UI/Widget/Value.pm
@@ -2,14 +2,20 @@ package Reaction::UI::Widget::Value;
 
 use Reaction::UI::WidgetClass;
 
-class Value, which {
+use namespace::clean -except => [ qw(meta) ];
 
-  before fragment widget {
-    arg value => $_{viewport}->value_string;
-  };
 
+before fragment widget {
+  if ($_{viewport}->can('value_string')) {
+    arg value => $_{viewport}->value_string;
+  } elsif($_{viewport}->can('value')) {
+    arg value => $_{viewport}->value;
+  }
 };
 
+__PACKAGE__->meta->make_immutable;
+
+
 1;
 
 __END__;
@@ -24,13 +30,13 @@ Reaction::UI::Widget::Value
 
 =head2 widget
 
-Additional variables available in topic hash: "viewport".
+Additional available arguments
 
-Renders "label" and "field"
+=over 4
 
-=head2 field
+=item B<value> - The C<value_string> or C<value> of the viewport
 
- C<content> will contain the value, if any,  of the field.
+=back
 
 =head1 AUTHORS