Lines Matching defs:foo
17 $foo = 'foo';
18 $bar = *main::foo;
19 $bar = $foo;
21 $foo = *main::bar;
25 if ($foo) {
26 print ref(\$foo) eq 'GLOB' ? "ok 2\n" : "not ok 2\n";
29 unless ($foo =~ /abcd/) {
30 print ref(\$foo) eq 'GLOB' ? "ok 3\n" : "not ok 3\n";
33 if ($foo eq '*main::bar') {
34 print ref(\$foo) eq 'GLOB' ? "ok 4\n" : "not ok 4\n";
38 $a = *main::foo;
43 print $a eq 'main::foo' ? "ok 6\n" : "not ok 6\n";
47 substr($foo, 0, 1) = "XXX";
48 print ref(\$foo) eq 'SCALAR' ? "ok 8\n" : "not ok 8\n";
49 print $foo eq 'XXXmain::bar' ? "ok 9\n" : "not ok 9\n";
52 sub foo {
53 local($bar) = *main::foo;
54 $foo = *main::bar;
55 return ($foo, $bar);
58 ($fuu, $baa) = foo();
77 $foo = 'stuff';
78 @foo = qw(more stuff);
79 %foo = qw(even more random stuff);
80 undef *foo;
81 print +($foo || @foo || %foo) ? "not ok" : "ok", " 14\n";
88 *foo = 'bar';
90 *foo = undef;
191 my $g = *foo;