diff options
author | matthewt <matthewt@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-02-18 18:28:34 +0000 |
---|---|---|
committer | matthewt <matthewt@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-02-18 18:28:34 +0000 |
commit | c97e16f1c7c1883bf433918d34a3d4bb461fc65b (patch) | |
tree | b438007897a7213f3bef9347d80209c6378eda8a /lib/Reaction/UI/RenderingContext | |
parent | 586b1b0d79412dfd074a58179dd6d5a21b9a0937 (diff) | |
download | reaction-c97e16f1c7c1883bf433918d34a3d4bb461fc65b.tar.gz reaction-c97e16f1c7c1883bf433918d34a3d4bb461fc65b.zip |
count code
Diffstat (limited to 'lib/Reaction/UI/RenderingContext')
-rw-r--r-- | lib/Reaction/UI/RenderingContext/TT.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/Reaction/UI/RenderingContext/TT.pm b/lib/Reaction/UI/RenderingContext/TT.pm index b359747..c69fe18 100644 --- 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 { |