package Whatever;

{
  my $priv1 = sub {
    my $self = shift;
    # do something private
  };

  sub public {
    my $self = shift;
    $self->$priv1();
  }
}