sub mylol {
    my $self = shift;
    local $self->{data} = { newdata => 1 };
    super();
    # $self->{data} is restored here
};