Lines Matching full:foo*
10 BEGIN { $_ = 'foo'; } # because Symbol used to clobber $_
14 ok( $_ eq 'foo', 'check $_ clobbering' );
36 $FOO = 'Eymascalar';
37 *FOO = $sym1;
39 is( $sym1, *FOO{IO}, 'assigns into glob OK' );
41 is( $FOO, 'Eymascalar', 'leaves scalar alone' );
47 readline FOO;
52 package foo;
56 ::ok( qualify("x") eq "foo::x", 'qualify() with a simple identifier' );
57 ::ok( qualify("x", "FOO") eq "FOO::x", 'qualify() with a package' );
62 ::ok( qualify("ARGV", "FOO") eq "main::ARGV",
64 ::ok( qualify("_foo") eq "foo::_foo",
66 ::ok( qualify("^FOO") eq "main::\cFOO",