Jak napisać odwołanie do funkcji w module Perla?

Question

Próbuję dowiedzieć się, jak wykonać pracę odwołań funkcji dla modułu Perla. Wiem, jak to zrobić poza modułem, ale w środku? Rozważmy kod taki jak ten:

==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=== 

Spójrz na linie 5-6 powyżej. Jaka jest poprawna składnia dla (1) zdefiniowania odwołania do funkcji w pierwszej kolejności i (2) dereferencji?

Answer 1

Jeśli $ref jest metoda (oczekuje $self jako pierwszy argument) i chcesz to nazwać na swój $self, składnia jest:

$self->$ref(@args) 

Answer 2

TMTOWTDI

Definiowanie odniesienie funkcję:

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

dereferencing:

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

Answer 3

pomocą następujących:

$self->$ref(); 

Z tej składni $ref może być odniesienie do podprogramu a nawet łańcuch nazwą metody się połączyć, np ,

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

Należy pamiętać, że oba mają nieco różne semantykę w odniesieniu do dziedziczenia.

Jeśli nie przechodzą jednoznacznych argumentów, nawiasy są opcjonalne:

$self->$ref; # also flies 

przeciwnym razie użyj

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