Lines Matching refs:UNIVERSAL
3 # check UNIVERSAL
110 test UNIVERSAL::isa($vals[$p], $refs[$q]) eq ($p==$q or $p+$q==1);
114 test ! UNIVERSAL::can(23, "can");
128 my $subs = join ' ', sort grep { defined &{"UNIVERSAL::$_"} } keys %UNIVERSAL::;
129 ## The test for import here is *not* because we want to ensure that UNIVERSAL
130 ## can always import; it is an historical accident that UNIVERSAL can import.
137 test $a->isa("UNIVERSAL");
139 test ! UNIVERSAL::isa([], "UNIVERSAL");
141 test ! UNIVERSAL::can({}, "can");
143 test UNIVERSAL::isa(Alice => "UNIVERSAL");
145 test UNIVERSAL::can(Alice => "can") == \&UNIVERSAL::can;
147 # now use UNIVERSAL.pm and see what changes
148 eval "use UNIVERSAL";
150 test $a->isa("UNIVERSAL");
152 my $sub2 = join ' ', sort grep { defined &{"UNIVERSAL::$_"} } keys %UNIVERSAL::;
160 eval 'sub UNIVERSAL::sleep {}';
163 test ! UNIVERSAL::can($b, "can");
167 test ! UNIVERSAL::isa("\xff\xff\xff\0", 'HASH');
171 use UNIVERSAL qw( isa can VERSION );
173 main::test isa "Pickup", UNIVERSAL;
174 main::test can( "Pickup", "can" ) == \&UNIVERSAL::can;
175 main::test VERSION "UNIVERSAL" ;
192 # a second call to isa('UNIVERSAL') when @ISA is null failed due to caching
196 test $x->isa('UNIVERSAL');
197 test $x->isa('UNIVERSAL');