I'm not sure I fully understand what you're doing here, but it may be possible to simplify the problem by modifying the dispatcher - something like (simplified):

  sub dispatch {
    my($self, $code) = (shift, shift);
    push @{ $self->{running} }, $code;
    my $result = eval { &$code($self, @_) };
    pop @{ $self->{running} };
    die if $@;
    return $result;
  }
[download]

It gets slightly more complex when you properly allow for context using wantarray, but this will allow super() to inspect information in the object itself to determine whence it was called.

Hugo