Lines Matching refs:ref
20 print ref(\$bar) eq 'SCALAR' ? "ok 1\n" : "not ok 1\n";
26 print ref(\$foo) eq 'GLOB' ? "ok 2\n" : "not ok 2\n";
30 print ref(\$foo) eq 'GLOB' ? "ok 3\n" : "not ok 3\n";
34 print ref(\$foo) eq 'GLOB' ? "ok 4\n" : "not ok 4\n";
41 print ref(\$a) eq 'GLOB' ? "ok 5\n" : "not ok 5\n";
44 print ref(\$b) eq 'GLOB' ? "ok 7\n" : "not ok 7\n";
48 print ref(\$foo) eq 'SCALAR' ? "ok 8\n" : "not ok 8\n";
60 print ref(\$fuu) eq 'GLOB' ? "ok 10\n" : "not ok 10\n";
64 print ref(\$baa) eq 'GLOB' ? "ok 11\n" : "not ok 11\n";
103 print ref *x{FORMAT} eq "FORMAT" ? "ok 21\n" : "not ok 21\n";