package Foo;
sub Bar::bletch {
  ...
  $self->SUPER::bletch(@_);
  ...
}