$is_blessed = defined($x) && ref($x) && overload::StrVal($x) =~ /=/;