Lines Matching full:foo*
71 my $foo;
72 return bless \$foo;
91 my $foo;
92 eval('die("foo\n")');
94 return bless \$foo;
113 my $foo;
114 return bless \$foo;
134 eval('die("foooo\n")');
163 sub foo {
167 @a = sort foo @a;
172 sub foo {
177 @a = sort foo @a;
208 foo:
210 @a = sort { last foo; } @a;
213 Label not found for "last foo" at - line 2.
218 my $foo;
219 return bless \$foo;
241 my $foo;
242 return bless \$foo;
259 sub foo {
260 $a <=> $b unless eval('$a == 0 ? die("foo\n") : ($a <=> $b)');
263 @a = sort foo @a;
270 my $foo;
271 return bless \$foo;
285 my $foo;
287 return bless \$foo;
297 foo:
301 END { print "foobar\n" }
303 foobar
314 sub foo { eval { die } } foo();
324 main|-|10|main::foo
332 return bless [qw(foo fee fie foe)], $_[0];
347 foo|fee|fie|foe