Re^3: What I Most Recently Learned in Perl, But Should Have Already Known

in reply to Re^2: What I Most Recently Learned in Perl, But Should Have Already Known
in thread What I Most Recently Learned in Perl, But Should Have Already Known

I always run into the problem of the default case when I use that -- what if $function isn't a key in %functions? The error message "Undefined subroutine &main:: called" can be very difficult to figure out.

And the straightforward fix isn't all that pretty:

($functions{$function} || $functions{default})->();
[download]

But I admit that I still use it. With comments, if there is any chance that someone with a capacity to do me bodily harm might read the code.

Comment on Re^3: What I Most Recently Learned in Perl, But Should Have Already Known Download Code

Replies are listed 'Best First'.
Re^4: What I Most Recently Learned in Perl, But Should Have Already Known by izut (Chaplain) on Aug 18, 2006 at 20:43 UTC
I think this way is prettier. `sub do_something { my ($function) = @_; $function = 'default' unless exists $functions{$function}; $functions{$function}->(); }` [download] Igor 'izut' Sutton your code, your rules.	[reply] [d/l]

In Section Meditations