Perl中的数据封装？

我在过去4年写了相当大的脚本,并尝试以OO风格做到这一点.我知道Perl< 6并不是真的OO. 所以我不喜欢的一点是,我没有数据封装,这意味着没有一个变量对于一个包(“class”)是真正私有的(或者也许我不知道该怎么做). 我有这样的东西(只有我的脚本的一小部分)

package TAG;

sub new () {
    my $classname = shift;
    my $self      = {};

    bless( $self,$classname );
    $self->initialize();
    return $self;
}

sub initialize() {
    my $self = shift;

    # Only an example,I have a long list of items in this "class"
    $self->{ID}          = "NA"; 
}

sub setID() {
    ...
}

sub getID() {
    ...
}

在我的主要脚本中,我以这种方式使用它：

my $CurrentItem;
$CurrentItem = new TAG();

$CurrentItem->getID()

但

$CurrentItem->{ID} = "Something";

也在工作,但我宁愿,这是不可能的.

有没有办法更好地封装我在“类”中使用的数据,所以我(或其他用户)被迫使用get和set方法？