Select Code to Download

package Foo;

...
   my $self = shift;
   return $self->_get_foo();
}

# 'private' has to change
sub _get_foo {
...
    my $self = shift;
    return $self->_get_foo();
}

sub get_foo {
   my $self = shift;
...
   my $self = shift;
   return $self->_get_bar();
}