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 Dproto.t441 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 29 milliseconds