How to write a function reference in a Perl module?

Question

I'm trying to figure out how to make a function reference work for a Perl module. I know how to do it outside of a module, but inside one? Consider code like this:

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

Look at lines 5-6 above. What's the correct syntax for (1) defining the function reference in the first place, and (2) dereferencing it?

Answer 1

If $ref is a method (expects $self as first argument) and you want to call it on your $self, the syntax is:

$self->$ref(@args)

Answer 2

TMTOWTDI

Defining a function reference:

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

Dereferencing:

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