t/op/universal.t

25 package Alice;
31 $Alice::VERSION = 2.718;
57 $a = new Alice;
59 test $a->isa("Alice");
60 test $a->isa("main::Alice");    # check that alternate class names work
62 test(("main::Alice"->new)->isa("Alice"));
94     package Alice;
124          $@ =~ /^Alice version 2.71(?:9|8999\d+) required--this is only version 2.718 at /;
143 test UNIVERSAL::isa(Alice => "UNIVERSAL");
145 test UNIVERSAL::can(Alice => "can") == \&UNIVERSAL::can;