Any way to access the contents of a block eval?

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

I'm fairly sure the answer is no - but just in case...

Is there any way to get at the contents of a block eval so you can do the moral equivalent of:

eval { 1/0 };
if ($@) { print _MAGIC_CONTENT_OF_LAST_EVAL
# outputs
# { 1/0 }
[download]

(without mucking around with source filters that is)