package Foo;

sub Foo::private::method { ... };

sub foo {
    my $self = shift;
    $self->Foo::private::method { ... };
};