Searched defs:BAR (Results 1 - 1 of 1) sorted by relevance
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/comp/ |
H A D | proto.t | 441 sub BAR { "quux" } subroutine 484 star2 FOO, BAR, sub { 485 print "not " unless $_[0] eq 'FOO' and $_[1] eq 'BAR'; 486 print "ok $i - star2 FOO, BAR\n"; 492 star2 BAR(), FOO, sub { 494 print "ok $i - star2 BAR(), FOO\n" 496 star2(FOO, BAR(), sub { 498 print "ok $i - star2(FOO, BAR())\n"; 500 star2 "FOO", "BAR", sub { 501 print "not " unless $_[0] eq 'FOO' and $_[1] eq 'BAR'; [all...] |
Completed in 32 milliseconds