Lines Matching full:foo*
309 # see if Foo->Bar(...) etc work under strictures
311 package Foo; sub Bar { print "@_\n" }
312 Foo->Bar('a',1);
313 Bar Foo ('b',2);
314 Foo->Bar(qw/c 3/);
315 Bar Foo (qw/d 4/);
316 Foo::->Bar('A',1);
317 Bar Foo:: ('B',2);
318 Foo::->Bar(qw/C 3/);
319 Bar Foo:: (qw/D 4/);
321 Foo a 1
322 Foo b 2
323 Foo c 3
324 Foo d 4
325 Foo A 1
326 Foo B 2
327 Foo C 3
328 Foo D 4
333 "" =~ foo;
335 Bareword "foo" not allowed while "strict subs" in use at - line 4.
374 qr/(?{my $x=foo})/;
376 Bareword "foo" not allowed while "strict subs" in use at (re_eval 1) line 1.
381 my $x=$a[FOO];
383 Bareword "FOO" not allowed while "strict subs" in use at - line 3.
387 my @a;my $x=$a[FOO];
389 Bareword "FOO" not allowed while "strict subs" in use at - line 2.