t/op/lex.t

   1 #!perl -w
   2 use strict;
   3
   4 require './test.pl';
   5
   6 plan(tests => 2);
   7
   8 {
   9     no warnings 'deprecated';
  10     print <<;   # Yow!
  11 ok 1
  12
  13     # previous line intentionally left blank.
  14
  15     my $yow = "ok 2";
  16     print <<;   # Yow!
  17 $yow
  18
  19     # previous line intentionally left blank.
  20 }
  21
  22 curr_test(3);