Lines Matching refs:and
438 # globs and globrefs (just as CORE::open() does), all under stricture
485 print "not " unless $_[0] eq 'FOO' and $_[1] eq 'BAR';
489 print "not " unless $_[0] eq 'Bar::BAZ' and $_[1] eq 'FOO';
493 print "not " unless $_[0] eq 'quux' and $_[1] eq 'FOO';
497 print "not " unless $_[0] eq 'FOO' and $_[1] eq 'quux';
501 print "not " unless $_[0] eq 'FOO' and $_[1] eq 'BAR';
505 print "not " unless $_[0] eq 'FOO' and $_[1] eq 'BAR';
509 print "not " unless $_[0] eq 'FOO' and $_[1] eq 'FOO';
513 print "not " unless $_[0] eq 'FOO' and $_[1] eq 'FOO';
517 print "not " unless $_[0] eq \*FOO and $_[1] eq \*BAR;
521 print "not " unless $_[0] eq \*FOO and $_[1] eq \*BAR;
526 print "not " unless $_[0] eq \*{'FOO'} and $_[1] eq \*{'BAR'};
531 print "not " unless $_[0] eq \*{'FOO'} and $_[1] eq \*{'BAR'};
547 # test prototypes when they are evaled and there is a syntax error