sub is_const { defined($_[0]) and !eval { ($_[0]) = $_[0]; 1 } }