10 print "not " unless $a->isa("Bob");
27 print "not " unless $a->isa("Alice");
30 print "not " unless $a->isa("Bob");
33 print "not " unless $a->isa("Female");
36 print "not " unless $a->isa("Human");
39 print "not " if $a->isa("Male");
42 print "not " unless $a->can("drink");
45 print "not " unless $a->can("eat");
48 print "not " if $a->can("sleep");
51 print "not " unless UNIVERSAL::isa([], "ARRAY");
54 print "not " unless UNIVERSAL::isa({}, "HASH");