Jak zrobić prywatne funkcje w module Perla?

Pracuję nad małym modułem Perla i z jakiegoś powodu miałem skrypt sterownika testowego, który używał mojego nowego modułu wywołującego jedną z funkcji, które myślałem, że będą prywatne, i udało się. Byłem zaskoczony, więc zacząłem szukać w google i nie mogłem znaleźć żadnej dokumentacji, jak tworzyć prywatne funkcje w modułach Perla...

Widziałem jedno miejsce, które mówiło, aby umieścić średnik po nawiasie zamykającym Twojej "prywatnej" Funkcji, Tak:

sub my_private_function {
...
}; 

Próbowałem to, ale mój skrypt sterownika nadal mógł uzyskać dostęp do funkcji, którą chciałem być prywatny.

Wymyślę coś, co będzie krótszym przykładem, ale oto, o co mi chodzi:

Moduł TestPrivate.pm:

package TestPrivate;

require 5.004;

use strict;
use warnings;
use Carp;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);

require Exporter;

@ISA = qw(Exporter AutoLoader);

our @EXPORT_OK = qw( public_function );
our @EXPORT    = qw( );

$VERSION = '0.01';

sub new {
    my ( $class, %args ) = @_;
    my $self = {};
    bless( $self, $class );
    $self->private_function("THIS SHOULD BE PRIVATE");
    $self->{public_variable} = "This is public";
    return $self;
}

sub public_function {
    my $self     = shift;
    my $new_text = shift;
    $self->{public_variable} = $new_text;
    print "Public Variable: $self->{public_variable}\n";
    print "Internal Variable: $self->{internal_variable}\n";
}

sub private_function {
    my $self     = shift;
    my $new_text = shift;
    $self->{internal_variable} = $new_text;
}

Kierowca: TestPrivateDriver.pl

#!/usr/bin/perl
use strict;
use TestPrivate 'public_function';
my $foo = new TestPrivate();
$foo->public_function("Changed public variable");
$foo->private_function("I changed your private variable");
$foo->public_function("Changed public variable again");
$foo->{internal_variable} = "Yep, I changed your private variable again!";
$foo->public_function("Changed public variable the last time");

Wyjście sterownika:

Public Variable: Changed public variable
Internal Variable: THIS SHOULD BE PRIVATE
Public Variable: Changed public variable again
Internal Variable: I changed your private variable
Public Variable: Changed public variable the last time
Internal Variable: Yep, I changed your private variable again!

Dodałem średnik po ostatnim nawiasie zamykającym w module, ale wyjście jest nadal takie samo. Jedyne co znalazłem to dodać tę linijkę jako pierwsza linia do mojej private_function:

caller eq __PACKAGE__ or die;

Dzięki za pomoc w nauce!