sub X {
   my $self = shift @_;
   ...
   $self->_Private_X();
   ...
}