package SomeObject;

my $very_private = sub 
{  
      ...
}
# ------------------------------------------
# to call this method:
$self->$very_private();

##</code><code>##

package SomeObject;

our $Semi_Private_Method = sub 
{
     ...
}

##</code><code>##

$self->$package_of_method::Semi_Private_Method();