Can't use string ("Fragenid") as a subroutine ref while "strict refs" in use at C:/Strawberry/perl/lib/test.pm

Bonjour tout le monde,
j'ai cette erreur si quelqu'un peut m aider.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
has question => (
  is      => 'ro',
  isa     => 'Str',
  default => sub  {
    my ($self, $fetch) = @_;
 
    ($self, $fetch) = ('tab_Fragen', qw(Fragenid Fragen Antwort_a Antwort_b Antwort_c ));
    while ($fetch->()) {
      #print Dumper($index), "\n";
      print $self->{Fragenid}, "\n";
      if (getIndex() eq $self->{Fragenid}) {
        return ($self->{Fragen}, $self->{Antwort_a}, $self->{Antwort_b}, $self->{Antwort_c});
      }
    }
  }
 
);