Lines Matching refs:BAR
441 sub BAR { "quux" }
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';
502 print qq/ok $i - star2 "FOO", "BAR"\n/;
504 star2("FOO", "BAR", sub {
505 print "not " unless $_[0] eq 'FOO' and $_[1] eq 'BAR';
506 print qq/ok $i - star2("FOO", "BAR")\n/;
516 star2 *FOO, *BAR, sub {
517 print "not " unless $_[0] eq \*FOO and $_[1] eq \*BAR;
518 print "ok $i - star2 *FOO, *BAR\n";
520 star2(*FOO, *BAR, sub {
521 print "not " unless $_[0] eq \*FOO and $_[1] eq \*BAR;
522 print "ok $i - star2(*FOO, *BAR)\n";
524 star2 \*FOO, \*BAR, sub {
526 print "not " unless $_[0] eq \*{'FOO'} and $_[1] eq \*{'BAR'};
527 print "ok $i - star2 \*FOO, \*BAR\n";
529 star2(\*FOO, \*BAR, sub {
531 print "not " unless $_[0] eq \*{'FOO'} and $_[1] eq \*{'BAR'};
532 print "ok $i - star2(\*FOO, \*BAR)\n";