12 if ($a->class eq "Bob") {print "ok 1\n";} else {print "not ok 1\n";}
14 # bless through a package
20 if ($b->class eq "Fred") {print "ok 2\n";} else {print "not ok 2\n";}
24 # same as test 1 and 2, but with other object syntax
30 if (class $a eq "Bob") {print "ok 3\n";} else {print "not ok 3\n";}
32 # bless through a package
38 if (class $b eq "Fred") {print "ok 4\n";} else {print "not ok 4\n";}