Lines Matching full:foo*
16 BEGIN { package Foo; *main::getlogin = sub { "kilroy"; } }
31 require Foo;
32 is( $r, "Foo.pm" );
34 require Foo::Bar;
35 is( $r, join($dirsep, "Foo", "Bar.pm") );
37 require 'Foo';
38 is( $r, "Foo" );
46 eval "use Foo";
47 is( $r, "Foo.pm" );
49 eval "use Foo::Bar";
50 is( $r, join($dirsep, "Foo", "Bar.pm") );
55 # localizing *CORE::GLOBAL::foo should revert to finding CORE::foo
89 sub foo { "ok" }
90 warn( OverridenWarn->foo() );
91 warn OverridenWarn->foo();
95 sub foo { [ "ok" ] }
96 pop( OverridenPop->foo() );
97 pop OverridenPop->foo();