note
izut
<p>Here is an example:</p>
<code>
#!/usr/bin/perl
use strict;
use warnings;
package Module::MyModule;
sub pass {
my ($function, @args) = @_;
my $f = \&{"Module::MyModule::" . $function};
return $f->(@args);
}
sub test {
my (@args) = @_;
return join ", ", @args;
}
package main;
print Module::MyModule::pass("test", qw(1 2 3 4));
</code>
<p><strong>Update:</strong> modified to support [doc://strict].
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-463329">
<p/>
Igor 'izut' Sutton<br/>
<em>your code, your rules.</em>
</div></div>
569172
569172