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