package Devel::HandyMethods;
sub Handy::GetOrSet
{
    my $self= ego( shift @_ );
    # ...
}

package My::Module::_private;

*My::Module::foo= \&Handy::GetOrSet;

sub My::Module::bar
{
    my $self= ego( shift @_ );
    # ...
}