X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FReaction%2FUI%2FWidgetClass.pm;h=ac6feaf028a31c9985f28b5b9da78268157abf8b;hb=3b02c20949cb0a23eaecb903ea450643cd95cabf;hp=beebe41188b265f46c3e1a8fd4090bf4dbb1578e;hpb=f2fef590a7283ea919bdaa51bac9d433e8785a09;p=catagits%2FReaction.git

diff --git a/lib/Reaction/UI/WidgetClass.pm b/lib/Reaction/UI/WidgetClass.pm
index beebe41..ac6feaf 100644
--- a/lib/Reaction/UI/WidgetClass.pm
+++ b/lib/Reaction/UI/WidgetClass.pm
@@ -85,7 +85,7 @@ class WidgetClass, which {
 
   implements handle_fragment => as {
     my ($self, $name, $proto, $code) = @_;
-warn ($self, $name, $code);
+#warn ($self, $name, $code);
     return ("_fragment_${name}" => $self->wrap_as_fragment($code));
   };
 
@@ -102,6 +102,7 @@ warn ($self, $name, $code);
       local $current_widget = $_[0];
       local $do_render = $_[1];
       local *_ = \%{$_[2]};
+      local $_ = $_[2]->{_};
       local $new_args = $_[3];
       $code->(@_);
     };