Polymorphisme et fonctions / méthodes Fermé

Question

Bonjour tout le monde, et bonne année 2013, meilleurs voeux :)

Je cherche à définir deux méthodes dans une classe (package) du même nom, qui ont un comportement plus ou moins similaire, mais avec des spécificités. Les méthodes se nomment "Add", ma classe "TestObject".



package TestObject;
...

sub Add {
      my($this, $data) = @_;
      ...
}

sub Add {
      my($this, $data, $position) = @_;
      ...
}


Comme le montre le code, je cherche a appeler deux versions différentes de Add() si j'ai un ou deux arguments.
J'ai fais pas mal de recherche, je n'ai rien trouvé. Donc je viens vous demander votre aide :D
J'ai l'habitude du C++, donc mon raisonnement est certainement influencé par ça... malheureusement :p

[Dal] · Answer

Tu ne peux pas créer deux fonctions (méthodes) avec le même nom dans un même espace de nommage (Package définissant ta classe).

Tu as (au moins) deux choix :

1- tu définis une seule méthode Add dans TestObject, qui agit différemment selon le nombre de paramètres passés

2- tu définis un autre objet TestObject::Special, qui hérite de TestObject, et qui définit une méthode Add avec ses spécificités.

Voilà un exemple qui illustre ces deux façons de faire :

#!/usr/bin/perl

package TestObject;

use strict;
use warnings;

sub new {
    my $class = shift;
    my $number = shift;
    my $self = {};
    bless( $self, $class );
    $self->{num} = $number;
    print "Initialized self->{num} = $self->{num}
";
    return $self;
}

sub Add {
    my $self = shift;
    my $data;
    my $position;

    print "I am a TestObject
";
    my $param_count = @_;
    if ($param_count == 1) {
        $data =  shift;
        print "Only one parameter was passed
";
        print "doing something with data = $data
";
        $self->{num} += $data;
    } elsif ($param_count == 2) {
        $data =  shift;
        $position =  shift;
        print "Two parameters were passed
";
        print "doing something with data = $data and position = $position
";
        $self->{num} += $data * $position;
    } else {
        print "Error: wrong number of parameters";
    }
    print "ending Add, the object holds self->{num} = $self->{num}

";
}

package TestObject::Special;

use strict;
use warnings;

@TestObject::Special::ISA = qw(TestObject);

sub Add {
    my $self = shift;

    print "I am a TestObject::Special, Add takes 2 arguments only here
";
    my $param_count = @_;
    if ($param_count == 2) {
        my $data = shift;
        my $position = shift;
        print "doing something with data = $data and position = $position
";
        $self->{num} += $data * $position;
    } else {
        print "Error: wrong number of parameters";
    }
    print "ending Add, the object holds self->{num} = $self->{num}

";
}

package main;

use strict;
use warnings;

my $thing1 = TestObject->new(12);
my $thing2 = TestObject->new(12);
my $thing3 = TestObject::Special->new(12);
$thing1->Add(3);
$thing2->Add(3,2);
$thing3->Add(3,2);
Cela produit le résultat suivant :

$ ./PerlGirafe.pl
Initialized self->{num} = 12
Initialized self->{num} = 12
Initialized self->{num} = 12
I am a TestObject
Only one parameter was passed
doing something with data = 3
ending Add, the object holds self->{num} = 15

I am a TestObject
Two parameters were passed
doing something with data = 3 and position = 2
ending Add, the object holds self->{num} = 18

I am a TestObject::Special, Add takes 2 arguments only here
doing something with data = 3 and position = 2
ending Add, the object holds self->{num} = 18
Dal

PerlGirafe · Answer

Merci beaucoup pour ta réponse.
C'est dommage que Perl ne permette pas un polymorphisme aussi évolué que le C++. J'espère que ce manque (à mon sens tout du moins) sera comblé dans de futur versions... (au pire, j'ai python, mais bon...)
La première solution est celle que j'avais retenue pour avancer dans mon code, mais je la trouvais un peu "salle". L'idée d'appeler une methode intermediaire me déplait, mais apparemment, je n'ai guère le choix, vu que je veux produire un code simple, sans avoir besoin de créer d'objets dérivés pour deux ou trois méthodes...

En tout cas, merci encore de ta réponse :D

Polymorphisme et fonctions / méthodes

2 réponses

Discussions similaires