1N/A chdir 't' if -d 't'; 1N/Atest $a->isa("main::Alice"); # check that alternate class names work 1N/Atest my $ref = $a->can("drink"); # returns a coderef 1N/Atest $a->$ref("tea") eq "drinking tea"; # ... which works 1N/Atest $@; # ... but not if no actual subroutine 1N/Atest ! $a->can("export_tags"); # a method in Exporter 1N/A## The test for import here is *not* because we want to ensure that UNIVERSAL 1N/A## can always import; it is an historical accident that UNIVERSAL can import. 1N/Aeval "use UNIVERSAL"; 1N/A# XXX import being here is really a bug 1N/Aeval 'sub UNIVERSAL::sleep {}'; 1N/Atest ! $a->can("export_tags"); # a method in Exporter 1N/A # test isa() and can() on magic variables 1N/A# a second call to isa('UNIVERSAL') when @ISA is null failed due to caching