sub for_obj( local $_ = shift; shift->(); $_; }