Lines Matching refs:and
101 and
140 and
162 and
183 and
185 and
254 # test lexicals and globals
348 # Bug report and testcase by Alexey Tourbin
407 # cleanly with literals before and after. (WL)
409 my $txt = "This is line 1.\nThis is the second line.\nThird and last.\n";
425 { # test 18: @# and ~~ would cause runaway format, but we now
517 ($^O eq 'os2' and not eval '$OS2::can_fork')) {
519 print "ok $_ # skipped: '|-' and '-|' not supported\n";
527 # Just a complete test for format, including top-, left- and bottom marging
528 # and format detection through glob entries
562 my $bm = 2; # Bottom marging (empty lines between last text and footer)
568 # output from the child and compares it with <DATA>.
619 $% == 1 and return "";
621 $lastmin < $= and print "\n" x $lastmin;