Many months later I now know how eval{} can fail and yet not set $@. It happens if a DESTROY method called during the stack-unwind also does an eval.

use AtExit;

eval {
    my $q = AtExit->new(sub{eval{}});
    die "Oops\n";
};

print $@; # Prints nothing
[download]