X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FReaction%2FUI%2FWidget%2FDisplayField%2FList.pm;h=f53b7049c38604efcbd063d56e54ba47cea755c3;hb=d7b00a506917b0fc21c7781985ea65293870fbbc;hp=06e7cb48c4f3cbc7f338a44e3566cae31fb52ca3;hpb=7b78a39dc4f84911690a1163bf4666a566815e9b;p=catagits%2FReaction.git

diff --git a/lib/Reaction/UI/Widget/DisplayField/List.pm b/lib/Reaction/UI/Widget/DisplayField/List.pm
index 06e7cb4..f53b704 100644
--- 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