count code

diff --git a/lib/Reaction/UI/RenderingContext/TT.pm b/lib/Reaction/UI/RenderingContext/TT.pm
index b359747..c69fe18 100644 (file)
--- a/lib/Reaction/UI/RenderingContext/TT.pm
+++ b/lib/Reaction/UI/RenderingContext/TT.pm
@@ -27,8 +27,10 @@ class TT is RenderingContext, which {
         my ($widget, $fname, $over) = @to;
         #warn "@to";
         if (defined $over) {
+          my $count = 0;
           $over->each(sub {
             local $args_copy{_} = $_[0];
+            local $args_copy{count} = ++$count;
             $body .= $widget->render($fname, $self, \%args_copy);
           });
         } else {