sub mylol {
  my $self=shift;
  {
    local $self; $self->{data} = {newdata => 1};
    $lol = super();
  }
}