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

[sfink]

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})->();

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.

[izut]

I think this way is prettier.

sub do_something {
    my ($function) = @_;
    $function = 'default' unless exists $functions{$function};
    $functions{$function}->();
}