Lines Matching full:foo*
69 $foo=undef; $foo->go;
75 "foo";
106 $_="foo";
109 foo
124 package FOO;sub new {bless {FOO => BAR}};
127 my $self = new FOO;
128 print $$self{FOO};
132 $_="foo";
138 print scalar ("foo","bar")
169 bless ['foo']
199 package foo;
220 print STDOUT "foo->can(READ)(@_)\n";
230 local(*FOO);
231 tie(*FOO,'foo');
232 print FOO "sentence.", "reversed", "a", "is", "This";
233 print "-- ", <FOO>, " --\n";
237 read(FOO, $buf, $len, $offset) == 100 or die "foo->READ failed";
238 getc(FOO) eq "a" or die "foo->GETC failed";
244 foo->can(READ)(string 10 1)
255 foo(2>1);
256 sub foo { bar() for @_; }
328 sub foo {
329 print "In foo1\n";
330 eval 'sub foo { print "In foo2\n" }';
331 print "Exiting foo1\n";
333 foo;
334 foo;
336 In foo1
337 Subroutine foo redefined at (eval 1) line 1.
338 Exiting foo1
339 In foo2
346 sub foo { local $_ = shift; split; @_ }
347 @x = foo(' x y z ');
438 warn "foo\n";
441 foo
452 $self->foo($init);
458 print "DESTROY", $self->foo;
480 print $y->foo;
482 print $x->foo;
494 my $foo = "ZZZ\n";
495 END { print $foo }
501 my $foo = "ZZZ\n";
502 END { print $foo }
516 foo();
517 sub foo { eval { return }; }
526 my $x = "foo";
529 foo
545 my $foo = "ok 2\n";
546 myeval('sub foo { local $foo = "ok 1\n"; print $foo; }');
548 foo();
549 print $foo;
610 FOO
674 my $foo = Bar->new();
702 $foo = \-f "blah";
703 print "ok" if ref $foo && !$$foo;
717 package Foo;
723 package Foo;
743 $test = Foo->new(); # must be package var
802 $_ = "foobar\n";
822 $_="foo";utf8::upgrade($_);/bar/i,warn$_;
824 foo at - line 1.