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

[izut]

I think this way is prettier.

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