Lines Matching full:foo*
15 $foo = 1;
17 $foo = 2;
20 $foo = 0;
23 $foo = 4;
28 $foo = 3;
31 print "#1\t:$foo: == 2\n";
32 if ($foo == 2) {print "ok 1\n";} else {print "not ok 1\n";}
36 print "#2\t:$foo: == 4\n";
37 if ($foo == 4) {print "ok 2\n";} else {print "not ok 2\n";}
40 $CMD = qq[$PERL -e "goto foo;" 2>&1 ];
45 sub foo {
53 &foo;
263 package Foo;
266 sub start { push @_, 1, "foo", {}; goto &show; }