How do I make private functions in a Perl module?

Question

I am working on a little Perl module and for some reason I had the test driver script that was using my new module call one of the functions that I thought would be private,

Answer 1

This works:

my $priv_func1 = sub {
    my $self = shift; say 'func1';
};

sub public_sub { 
    my $self = shift;

    $self->$priv_func1(@_);
}