sub is_blessed {
      return (ref $_[0]
              && ! grep    { ref $_[0] eq $_ }
                   qw[ SCALAR ARRAY HASH  CODE GLOB LVALUE ]
                )  ? 1 : 0;
  }