Référence à une méthode dans un package

Question

J'essaie de trouver une solution générale pour obtenir une référence à une méthode dans un module. Supposons que nous avons un module Hello.pm avec une seule méthode appelée "bonjour".

Dans un programme appelant, on pourrait écrire

use Hello; 
Hello->hello('Hi There'); 

Le module est défini comme:

package Hello; 
sub hello { 
my $object=shift; 
my $greeting=shift; 
say "$greeting"; 
return; 
} 
1; 

Comment puis-je obtenir une référence de code à mon test du module de bonjour? Finalement, je veux construire une table d'expédition et être capable de le charger avec n'importe quel nombre de méthodes situées dans d'autres modules.

Cela ne fonctionne pas:

my $code_ref=&{Hello->hello} 

et invoquer comme ceci:

$code_ref->('Hi There'); 

Toutes les idées? Merci!

Answer 1

Vous souhaitez effectuer un appel de sous-programme ($code_ref->(...)), mais vous souhaitez appeler une méthode. Cela signifie que vous devrez créer un sous-programme qui appelle la méthode et obtenir une référence à ce sous-programme à la place. Comme le montre ci-dessous, cela est assez facile à faire:

my $code_ref = sub { Hello->hello(@_) }; 

Answer 2

Si vous utilisez cela pour une table d'expédition, laissez la table faire le levage de charges lourdes en passant dans une clé au lieu de créer un CREF générique et dire quelle classe appeler le sous:

use warnings; 
use strict; 

package Hello; 
sub hello { 
    my $class = shift; 
    my $msg = shift; 
    print "$msg\n"; 
} 

package Bye; 
sub bye { 
    my $class = shift; 
    my $msg = shift; 
    print "$msg\n"; 
} 

package main; 

my %dt = (
    Hello => sub { Hello->hello(@_); }, 
    Bye => sub { Bye->bye(@_); }, 
); 

$dt{Hello}->("hi there"); 
$dt{Bye}->("see ya!");