Select Code to Download

sub exception (&) {
    return eval { shift->(); 1 } ? undef
        : ($@ || confess "\$@ was false");
}