Lines Matching full:foo*
12 $c = do foo();19 sub foo {23 @foo = ("hi \n","there\n","!\n");24 @bar = @foo;28 $foo = "\n";29 chop($foo,@foo);30 is (join('',$foo,@foo), 'hi there!');32 $_ = "foo\n\n";35 is ($_, "foo\n");37 $_ = "foo\n";40 is ($_, "foo");42 $_ = "foo";45 is ($_, "foo");47 $_ = "foo";