sub as_string {
  my($obj) = @_;
  return "$obj" unless ref $obj;
  die "Give me a string, or something that pretends to be one"
      unless overload::Method($obj, '""');
  return "$obj";
}