$is_blessd=defined($x) && ref($x) && (index(overload::StrVal($x),'=')>=0);