Help for this page

Select Code to Download


  1. or download this
    sub exception (&) { eval { shift->(); 1 } ? undef : ($@ || die) }
    sub warns (&) { my @w; { local $SIG{__WARN__} = sub { push @w, shift }
    +; shift->() } @w }