sub dostuff {
  goto &{ $_[0]->can('SUPER::dostuff') }
    if $condition;
  # ...
}