use Scalar::Util 'blessed';
my $oh_bee_jay = bless {}, '0';
print "not blessed\n"      if not     blessed $oh_bee_jay;
print "defined blessed\n"  if defined blessed $oh_bee_jay;
__END__
not blessed
defined blessed