Perl, @array в конструкторе perl

Я пишу классы perl, но не знаю, как иметь массив или хэш в моей $ this переменной?

У меня есть pack.pm :

#!/usr/bin/perl -w
use strict;
use Parallel::ForkManager;
package Pack;

our $cgi = new CGI;

sub new {
    my ($classe, $nom, $nbports, $gio) = @_;

    my $this = {
    "nom"    => $nom,
    "nbports" => $nbports,
    "gio"   => $gio
    };

    bless($this, $classe);
    return $this;   
}
    ...
1;

Я хотел бы иметь @tab , я могу получить доступ через $ this-> tab , но я не хочу указывать его в аргументе для экземпляра.
Как это работает в Perl?

Спасибо.

5
задан antyrat 25 November 2011 в 14:19
поделиться