Bonjour tout le monde,
j'ai cette erreur si quelqu'un peut m aider.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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}); } } } );
Partager