Hash of functions in modules

[Vito Corleone]

Hi,

I have code like this:

if ($cmd eq "get") { $self->get(); }
elsif ($cmd eq "set") { $self->set(); }
elsif ($cmd eq "copy") { $self->copy(); }

I want to put it inside hash of function. How do I do that? I know I can
do:

%hof = ( get => \&get,
set => \&set,
copy => \&copy );
$hof{$cmd}->();

But I will lose the $self in the function. How do I pass $self to the
function too as well?

 

[Ala Qumsieh]

if ($cmd eq "get") { $self->get(); }
elsif ($cmd eq "set") { $self->set(); }
elsif ($cmd eq "copy") { $self->copy(); }

Perl allows this:

$self->$cmd;

--Ala

 

[Tassilo v. Parseval]

Also sprach Ala Qumsieh:

Perl allows this:

$self->$cmd;

And in case $cmd can contain garbage (that is, the name of a
non-existing method), one could catch that with an autoloader:

our $AUTOLOAD;
...

sub DESTROY { }
sub AUTOLOAD {
die "No such method: $AUTOLOAD";
}

Tassilo