Select Code to Download

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

sub X {
   my $self = shift @_;
...
   }
   ...
}