Discussion :

[dbozec]

Hello,

j'essaie depuis un moment de surcharger une méthode dans classe, mais sans succès.
Tous les exemple que je trouve montrent la même chose et je n'arrive pas à voir ce que je fais de différent.
Si une bonne âme y voit plus clair que moi je suis preneur d'un coup de main ;-)

classe mere.pm :

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
package mere;
 
use strict;
use warnings;
 
sub echoData
{
	print getData()."\n";
}
 
sub getData
{
	die 'Should be overriden by children of '.__PACKAGE__;
}
 
1;

classe fille.pm :

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
package fille;
 
use strict;
use warnings;
 
use mere;
use base qw (mere);
 
my $data = 'PLOP!';
 
sub getData
{
	return $data;
}
 
1;

fichier test.pl :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl
 
use strict;
use warnings;
 
use fille;
 
sub test
{
	fille->echoData();
}
 
test();

exécution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
$ perl test.pl 
Should be overriden by children of mere at mere.pm line 13

[djibril]

Bonsoir et bonne lecture.
Tu as dans la documentation la redéfinition de méthodes.

[dbozec]

Salut,

oui j'ai bien vu ce cours et il fait partie des sources que j'ai suivi.
Mais comme je l'ai dit plus haut je ne vois pas ce que je fait de différent pour que ça ne fonctionne pas dans mon cas

[djibril]

à aucun moment dans ton code je n'ai vu de constructeur .

[dbozec]

ok, j'avais compris du cours qu'il suffisait de réécrire la fonction souhaitée.
l'ajout d'un constructeur complexifie pas mal la classe dans ce cas là.

Par contre du coup je saisi mal pourquoi dans mon exemple l'héritage fonctionne mais pas la surcharge. Je me serai attendu à ce que tout fonctionne ou rien du tout.

[Philou67430]

Dans mere.pm, ici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
sub echoData
{
	print getData()."\n";
}

tu n'appelles pas la méthode getData sur l'objet courant, mais la function getData du module courant... donc mere::getData

Par ailleurs, tu as bien défini un package, mais ce n'est pas à proprement parler une classe, puisque tu n'y défini aucun objet (comme le dit djibril, tu n'as aucun constructeur).
Tes fonctions echoData et getData ne sont donc pas des méthodes d'objets. Et pour que ce soit des méthodes de classe, il faudrait qu'elles acceptent en premier paramètre la classe (ce que tu ne fais pas).

Ainsi, en considérant ces fonctions comme des méthodes de classe, tu dois écrire echoData ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
sub echoData
{
	my $class = shift;
	print $class->getData()."\n";
}

[dbozec]

Merci c'est plus clair maintenant