Lines Matching defs:foo
20 sub foo {23 foo(1);52 my $foo = <IN>;53 like( $foo, qr/ok 7/, '$OFS' );56 ok( chomp($foo), '$ORS should be \n' );71 @foo = (8, 9);72 @foo = split(/\n/, "@foo");73 is( $foo[0], 8, '$"' );74 is( $foo[1], 9, '$LIST_SEPARATOR' );