我正在开发一个小Perl模块，由于某种原因，我让测试驱动脚本使用我的新模块调用了一个我认为是私有的函数，它成功了。我很惊讶，所以我开始搜索谷歌，我真的找不到任何关于如何在Perl模块中创建私有函数的文档...
我看到有一个地方说要在“private”函数的右大括号后面放一个分号，就像这样：

sub my_private_function {
...
};

我试过了，但是我的驱动程序脚本仍然可以访问我想要的私有函数。
我会编一个更短的例子，但下面是我的目标：

模块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;
}

驱动程序：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");

驱动程序输出：

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!

所以我在模块的最后一个右大括号后面添加了一个分号，但是输出仍然是一样的，我唯一真正找到的是将下面这行作为第一行添加到我的private_function中：

caller eq __PACKAGE__ or die;

但是这看起来很笨拙。我没有很多编写Perl模块的经验，所以也许我的模块设置不正确？在Perl模块中有没有可能有私有函数和变量？
谢谢你帮我学习！