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));
};
local $current_widget = $_[0];
local $do_render = $_[1];
local *_ = \%{$_[2]};
+ local $_ = $_[2]->{_};
local $new_args = $_[3];
$code->(@_);
};