in reply to dispatch table of functions and arguments
Currying closures might be useful here, but that depends on when you are building the dispatch table if I understand your problem correctly. If you don't mind wasting efficiency, you might want to lift out common arguments to the subs (if any exist) to the dispatch call site and build the dispatch table like this during each iteration of the while loop:
I'm sure there's a better way to do this that my idiocy is incapable of figuring out right now too.
There are lots of better resources regarding how to use closures available -- try searching for the word 'closures' on this site for more info.
Anonymous Lee
my %dispatcher = ( foo => compute_interval($titi), bar => compute_interstice($tata), baz => compute_inact_and_expo_effective($toto), qux => get_exposure_service($bling) ); $dispatcher{$action}->(<insert_common_args_here>) if exists($dispatche +r{$action}); sub compute_interval { my $args = shift; return sub { # do something useful with args here.. } } sub compute_interstice { my $args = shift; return sub { # and so on } }
I'm sure there's a better way to do this that my idiocy is incapable of figuring out right now too.
There are lots of better resources regarding how to use closures available -- try searching for the word 'closures' on this site for more info.
Anonymous Lee
|
---|
In Section
Seekers of Perl Wisdom