sub public_method {
   my $object = shift;
   $object->private_method;
}

sub private_method {
   my $object = shift;
   ...
}