J'ai un problème avec Thread::Queue auquel je ne parvient pas a trouver de solution j'invoque ma classe comme ceci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
sub new {
    my ($class, %cnf) = @_;
    my $gd     = delete $cnf{'gd'};
    my $list   = delete $cnf{'list'};
    my $self = bless {
        graph  => $gd,
        job    => $list
    }, $class;
    return $self;
}
en lui passant en paramètre deux références a Thread::Queue etant donnée que j'utilise deux files d'attente comme ceci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
my $DataQueue  = Thread::Queue->new;
my $DataQueue2 = Thread::Queue->new;
 
 
my $vector = Vector->new( 
              gd      => \$DataQueue2,
              list    => \$DataQueue
);

j'ai essayé deux méthodes pour utiliser ces références dans ma classe rien n'y fait :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
$self->{job}->enqueue("data");
${$self->{'job'}}->enqueue("data");
je ne voie vraiment pas d'ou vient le problème

thx