in reply to Shortening "$bar{foo} if exists $bar{foo}"?

You know, it just occured to me that in this specific case you can just 
eval { use strict 'refs'; $bar{foo}->() };

[download]

Makeshifts last the longest.

In Section Seekers of Perl Wisdom