package foo;

sub new {
 # ...
}

sub public {
  my ( $self ) = @_;
  $self->_private();
}

sub _private {
  my ( $self ) = @_;
  $self->_other_private_stuff();
}

# ...