6 use Scalar::Util qw(blessed);
11 print "not " if blessed(1);
14 print "not " if blessed('A');
17 print "not " if blessed({});
20 print "not " if blessed([]);
25 print "not " if blessed($y);
30 print "not " unless blessed($x);
33 print "not " unless blessed($x) eq 'ABC';