http://www.perlmonks.org?node_id=736203

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Is there a more succinct way of writing this?
my $foo;

eval { my $foo = bar->something() }; die $@ if $@;

return $foo;
i.e. catching and rethrowing an exception at the same time as returning the return value is no exceptions.