sub _somePrivateMethod {
    my $self = shift;

    $self->_someOtherPrivateMethod;
    ...
}