use NEXT;

no strict 'refs';
*{$package . '::function'} = sub {
  my $this = shift;
  # do something
  $this->NEXT::function(@_);
};