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