objet : héritage multiple

**Zwiter** · 16/09/2009, 15h27

Bonjour,
j'ai quelques soucis a propos de l'heritage multiple.
Suite aux tutoriaux, j'utilise le code suivant pour appeler 2 autres classes :

Code :

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

1
2
3
4
5
6
7
8
9
 
#!/usr/bin/perl
 
package Probe::Main;
use warnings;
use strict;
use Carp;
use Data::Dump qw(dump);
use base qw( Probe::Data Probe::Design );

Dans chacune de ces classes, j'ecris un print à la 1ere instruction de la fonction new :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
 
#dans Main.pm :
sub new {
  print "new main\n";
  my ( $class, $ref_arguments ) = @_;
  $class = ref($class) || $class;
  my $this = $class->SUPER::new($ref_arguments);
  bless( $this, $class );
  return $this;
}
 
#dans Data.pm :
sub new {
  print "new data\n";
  my ( $class, $ref_arguments ) = @_;
  $class = ref($class) || $class;
  my $this = {};
  bless( $this, $class );
  return $this;
}
 
#dans Design.pm :
sub new {
  print "new design\n";
  my ( $class, $ref_arguments ) = @_;
  $class = ref($class) || $class;
  my $this = $class->SUPER::new($ref_arguments);
  bless( $this, $class );
  return $this;
}

Ceci n'affiche que :
new main
new data

Donc design ne se charge pas ?
Je ne comprends pas pourquoi, ayant utilisé base comme expliquer dans les tutoriaux : http://djibril.developpez.com/tutori...rl/poo/#LB-6-b

Merci de votre aide
Z.

**djibril** · 16/09/2009, 15h52

Quel est ton script principal. Comment crée tu tes objets, peux tu nous montrer tes codes au complet ?

**Zwiter** · 16/09/2009, 15h58

Merci djibril pour ton aide

j'ai reproduis le souci avec le minimum de lignes :

probe.pl :

Code :

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

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
 
use warnings;
use strict;
use Carp;
use Data::Dump qw(dump);
use Probe::Main;
 
my $Probe = Probe::Main->new();

Data.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
17
18
19
#!/usr/bin/perl
 
package Probe::Data;
use warnings;
use strict;
use Carp;
use Data::Dump qw(dump);
 
sub new {
  print "new data\n";
  my ( $class, $ref_arguments ) = @_;
  $class = ref($class) || $class;
  my $this  = {};
  bless( $this, $class );
  return $this;
}
 
1;
__END__

Design.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
17
18
19
#!/usr/bin/perl
 
package Probe::Design;
use warnings;
use strict;
use Carp;
use Data::Dump qw(dump);
 
sub new {
  print "new design\n";
  my ( $class, $ref_arguments ) = @_;
  $class = ref($class) || $class;
  my $this  = {};
  bless( $this, $class );
  return $this;
}
 
1;
__END__

Main.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
17
18
19
20
#!/usr/bin/perl
 
package Probe::Main;
use warnings;
use strict;
use Carp;
use Data::Dump qw(dump);
use base qw( Probe::Data Probe::Design );
 
sub new {
  print "new main\n";
  my ( $class, $ref_arguments ) = @_;
  $class = ref($class) || $class;
  my $this = $class->SUPER::new($ref_arguments);
  bless( $this, $class );
  return $this;
}
 
1;
__END__

Résultat :

Code :

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

1
2
3
$ perl probe.pl 
new main
new data

**Zwiter** · 16/09/2009, 16h08

Je pense avoir le meme problème qu'ici http://www.perlmonks.org/?node=188985
Une solution et d'empiler les creations d'objets :

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
18
19
20
#!/usr/bin/perl
 
package Probe::Main;
use warnings;
use strict;
use Carp;
use Data::Dump qw(dump);
use base qw( Probe::Data Probe::Design );
 
sub new {
  print "new main\n";
  my ( $class, $ref_arguments ) = @_;
  $class = ref($class) || $class;
  my $this = $class->Probe::Data::new($ref_arguments)->Probe::Design::new($ref_arguments);
  bless( $this, $class );
  return $this;
}
 
1;
__END__

Résutat :

Code :

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

1
2
3
4
$ perl probe.pl 
new main
new data
new design

**djibril** · 16/09/2009, 16h13

Envoyé par Zwiter

Je pense avoir le meme problème qu'ici http://www.perlmonks.org/?node=188985
Une solution et d'empiler les creations d'objets :

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
18
19
20
#!/usr/bin/perl
 
package Probe::Main;
use warnings;
use strict;
use Carp;
use Data::Dump qw(dump);
use base qw( Probe::Data Probe::Design );
 
sub new {
  print "new main\n";
  my ( $class, $ref_arguments ) = @_;
  $class = ref($class) || $class;
  my $this = $class->Probe::Data::new($ref_arguments)->Probe::Design::new($ref_arguments);
  bless( $this, $class );
  return $this;
}
 
1;
__END__

Résutat :

Code :

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

1
2
3
4
$ perl probe.pl 
new main
new data
new design

Là, tu fais du multi constructeur, ce que je te déconseille, ça n'a absolument aucun intérêt, du moins pour toi qui débute.

**djibril** · 16/09/2009, 16h10

Bon, je t'explique.

Dans ton .pl, tu as mis ceci :

Code :

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

my $Probe = Probe::Main->new();

Donc tu fais appel à la classe Main. Dans Main.pm, il te print new main.
Dans cette classe, tu as

Code :

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

1
2
3
4
5
6
7
8
9
10
use base qw( Probe::Data Probe::Design );
 
sub new {
  print "new main\n";
  my ( $class, $ref_arguments ) = @_;
  $class = ref($class) || $class;
  my $this = $class->SUPER::new($ref_arguments);
  bless( $this, $class );
  return $this;
}

La classe héritera des méthodes des classes Data et Design. Le constructeur de la classe Main fait appel à sa super CLASSE, donc à celui qui est hérité en premier. Dans ton cas, ce sera donc la classe Data. De ce fait, il te print new data et c'est tout. C'est pour ça qui tu as juste :

$ perl probe.pl
new main
new data

Mais ça ne veut pas dire que l'héritage n'a pas fonctionné, c'est juste que la classe design n'a pas été instanciée, et ça n'a aucune importance. Si tu n'es pas persuadé de ce que je te dis, rajoute cette méthode dans la classe design.

Code :

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

1
2
3
4
5
6
7
sub bonjourdesign {
  my $this = shift;
 
  print "bonjour c'est design";
 
  return;
}

et dans probe.pl, rajoute cette ligne

Code :

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

$Probe->bonjourdesign();

Tu verras que l'héritage fonctionne à merveille

**Zwiter** · 16/09/2009, 16h14

Le souci est que si la classe n'est pas instanciée, je n'ai donc pas acces aux variables de cette classe, qui devraient être héritées :

Design.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
17
18
19
20
#!/usr/bin/perl
 
package Probe::Design;
use warnings;
use strict;
use Carp;
use Data::Dump qw(dump);
 
sub new {
  print "new design\n";
  my ( $class, $ref_arguments ) = @_;
  $class = ref($class) || $class;
  my $this  = {};
  bless( $this, $class );
  $this->{DESIGN} = 'bla !';
  return $this;
}
 
1;
__END__

Data.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
17
18
19
20
#!/usr/bin/perl
 
package Probe::Data;
use warnings;
use strict;
use Carp;
use Data::Dump qw(dump);
 
sub new {
  print "new data\n";
  my ( $class, $ref_arguments ) = @_;
  $class = ref($class) || $class;
  my $this  = {};
  bless( $this, $class );
  $this->{DESIGN} = 'blo !';
  return $this;
}
 
1;
__END__

Et probe.pl :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl
 
use warnings;
use strict;
use Carp;
use Data::Dump qw(dump);
use Probe::Main;
 
my $Probe = Probe::Main->new();
 
print $Probe->{DESIGN}, "\n";
print $Probe->{DATA}, "\n";

Affichage :

Code :

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

1
2
3
4
5
$ perl probe.pl 
new main
new data
blo !
Use of uninitialized value in print at probe.pl line 12.

Souci

**djibril** · 16/09/2009, 16h26

Déjà :
1- Pourquoi ne pas gérer cela via Main.pm
2- Généralement, on crée des accesseur et mutateur pour travailler proprement.
3- Tu as déjà un souci de conception, dans design.pm et data.pm ton attribut à le même nom DESIGN, donc de toute façon, ils s'écraseront.

Avant de se lancer dans la POO, il faut réfléchir à ce que tu souhaites faire, faire des schémas, sinon, c'est la panacée.

objet : héritage multiple

Langage Perl

Vue hybride

Discussions similaires

Partager

Partager