Come scrivere un riferimento di funzione in un modulo Perl?

Question

Sto cercando di capire come far funzionare una funzione di riferimento per un modulo Perl. So come farlo al di fuori di un modulo, ma all'interno di uno? Considerate il codice come questo:

==mymodule.pm== 
1 sub foo { my $self = shift; ... } 
2 sub bar { my $self = shift; ... } 
3 sub zip { 
4 my $self = shift; 
5 my $ref = \&foo; 
6 $self->&$foo(); # what syntax is appropriate? 
7 } 
==eof=== 

Guardate le linee 5-6 di cui sopra. Qual è la sintassi corretta per (1) definire il riferimento alla funzione in primo luogo e (2) dereferenziarlo?

Answer 1

Se $ref è un metodo (si aspetta $self come primo argomento) e che si desidera chiamare sul vostra $self, la sintassi è:

$self->$ref(@args) 

Answer 2

TMTOWTDI

Definizione di un riferimento di funzione:

$ref = \&subroutine; 
$ref = sub { BLOCK }; 
$ref = "subroutineName"; # or $ref = $scalarSubroutineName 

Dereferenziare:

$ref->(@args); 
&$ref; 
&{$ref}(@args); 

Answer 3

Usare il seguente:

$self->$ref(); 

Con questa sintassi, $ref può essere un riferimento ad una subroutine o una stringa con il nome del metodo da chiamare, ad esempio ,

my $ref = "foo"; 
$self->$ref(); 

essere consapevoli del fatto che i due hanno leggermente diverse semantiche rispetto alla eredità.

Quando non sta passando argomenti espliciti, le parentesi sono opzionali:

$self->$ref; # also flies 

In caso contrario, utilizzare

$self->$ref($arg1, \%arg2, @others);