my $private1 = sub { print "Private1\n" };
sub _private2      { print "Private2\n" }

sub public_method 
{
    my $self = shift;
    $private1->($self);
    _private2($self);
}