The SUPER:: of a method is determined based on the package in which the method was compiled, not on the package in which it is called, nor the package in which it was found.

You can achieve the effect you want by compiling it in the right package:

  {
    package foo::bar;
    *foo = sub { my $self = shift; $self->SUPER::foo; };
  }
[download]

There has been a fair bit of discussion over the years on the perl development lists about whether this behaviour is wrongly defined, but it's unlikely to be changed in any version of perl5.

Hugo