Lines Matching full:foo*
15 $foo = "ok 2\n";
17 local(*foo) = *bar;
18 print $foo;
20 print $foo;
23 $foo = "ok 4\n";
25 local(*foo) = 'baz';
26 print $foo;
28 print $foo;
30 $foo = "ok 6\n";
32 local(*foo);
33 print $foo;
34 $foo = "ok 5\n";
35 print $foo;
37 print $foo;
43 $foo = 'bar';
44 print $$$foo;
48 $FOO = \$BAR;
51 print $$$FOO;
100 @{$spring2{"foo"}} = (1,2,3);
101 $spring2{"foo"}->[3] = 4;
102 print join(':',@{$spring2{"foo"}}) eq "1:2:3:4" ? "ok 22\n" : "not ok 22\n";
124 $anonhash2 = {FOO => BAR, ABC => XYZ,};
146 print $THIS->{FOO} eq BAR ? "ok $ARGS[0]\n" : "not ok $ARGS[0]\n";
152 $object = "foo";
154 $main'anonhash2 = "foo";
171 $main'object = bless {FOO => foo, BAR => bar};
181 $foo = doit $object "FOO";
182 print $foo eq foo ? "ok 37\n" : "not ok 37\n";
194 sub foo { print $_[1] }
197 foo WHATEVER "ok 38\n";
200 # test the \(@foo) construct
203 @foo = \(1..3);
204 @bar = \(@foo);
205 @baz = \(1,@foo,@bar);
239 $foo = "not ok 49";
240 { local(*bar) = "foo" }
277 DESTROY { $_[0] = 'foo' }