Lines Matching defs:Foo
175 ## %Foo::Bar instead of the package Foo::Bar:: -- and Config.pm just
207 is( $::{"Foo::"} || "none", "none"); # sanity check 1
208 is( $::{"Foo::"} || "none", "none"); # sanity check 2
210 is( UNIVERSAL::can("Foo", "boogie") ? "yes":"no", "no" );
211 is( $::{"Foo::"} || "none", "none"); # still missing?
213 is( Foo->UNIVERSAL::can("boogie") ? "yes":"no", "no" );
214 is( $::{"Foo::"} || "none", "none"); # still missing?
216 is( Foo->can("boogie") ? "yes":"no", "no" );
217 is( $::{"Foo::"} || "none", "none"); # still missing?
219 is( eval 'Foo->boogie(); 1' ? "yes":"no", "no" );
220 is( $::{"Foo::"} || "none", "none"); # still missing?
222 is(do { eval 'Foo->boogie()';
223 $@ =~ /^\QCan't locate object method "boogie" via package "Foo" (perhaps / ? 1 : $@}, 1);
225 eval 'sub Foo::boogie { "yes, sir!" }';
226 is( $::{"Foo::"} ? "ok" : "none", "ok"); # should exist now
227 is( Foo->boogie(), "yes, sir!");
241 sub Foo::x : lvalue { $x }
242 Foo->$x = 'ok';
281 for my $meth (['Bar', 'Foo::Bar'],
289 package main; Foo->$meth->[0]();
291 "Foo $meth->[1]",