package GP;

sub foo {
  my $self = shift;
  # ...
  $self->bar();
  # ...
}

sub bar
{
  my $self = shift
  # but I can be overridden
}

package P;

sub bar {
  my $self = shift;
  # stuff.
}