package SomeObject;

our $Semi_Private_Method = sub 
{
     ...
}