ObjectView converted

[catagits/Reaction.git] / lib / Reaction / UI / Widget / DisplayField / List.pm

diff --git a/lib/Reaction/UI/Widget/DisplayField/List.pm b/lib/Reaction/UI/Widget/DisplayField/List.pm
index 06e7cb4..f53b704 100644 (file)
--- a/lib/Reaction/UI/Widget/DisplayField/List.pm
+++ b/lib/Reaction/UI/Widget/DisplayField/List.pm
@@ -3,33 +3,46 @@ package Reaction::UI::Widget::DisplayField::List;
 use Reaction::UI::WidgetClass;
 
 class List, which {
-  widget renders [ qw/label list item/ =>  { viewport => func(self => 'viewport') } ];
-  label  renders [ string { $_{viewport}->label } ];
-  list   renders [ item over func('viewport', 'value_names') ];
-  item   renders [ string { $_{_} } ];
+  fragment widget [ qw/label list item/ ];
+  fragment label  [ string { $_{viewport}->label } ];
+  fragment list   [ item => over func('viewport', 'value_names') ];
+  fragment item   [ string { $_ } ];
 };
 
 1;
 
 __END__;
 
-=for layout widget
+=head1 NAME
 
-[% label %]
-[% list  %]
+Reaction::UI::Widget::DisplayField::List
 
-=for layout label
+=head1 DESCRIPTION
 
-<strong > [ % content %]: </strong>
+=head1 FRAGMENTS
 
-=for layout list
+=head2 widget
 
-<ul>
-[% item %]
-</ul>
+renders C<label> and C<list> passing additional variable "viewport"
 
-=for layout item
+=head2 label
 
-<li>[% content %]</li>
+C<content> contains the viewport's label
+
+=head2 list
+
+renders fragment item over the viewport's C<value_names>
+
+=head2 item
+
+C<content> contains the value of the current item ($_ / $_{_})
+
+=head1 AUTHORS
+
+See L<Reaction::Class> for authors.
+
+=head1 LICENSE
+
+See L<Reaction::Class> for the license.
 
 =cut